Ответы на вопрос:
(изменено)
Код к задаче написан на Pascal. Блок схему приложил вместе с кодом и выводом компилятора:
var x: integer;
f_x: real;
begin
write('Enter value of "x": x = ');
read(x);
f_x:= 0;
if (x <= 3) then
begin
f_x:= x*x + 3*x + 90;
end;
if (x > 3) then
begin
f_x:= (sin(x))/(x*x - 9);
end;
writeln('f(x) = ',(f_x):0:2);
end.
// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin writeln('*** исходный массив [10x10] ***'); var q: =matrrandom(10,10,-30,30); q.println(4); writeln(4*q.colcount*'-'); // #1 writeln('s=',q.rows.selectmany(x-> x).where(x-> (x> 1) and (x< ); // #2, #3 var s: =q.elementswithindexes; // #2 writeln('ненулевые элементы'); s.where(x-> x[2]< > 0).foreach(x-> write('[',x[0]+1,',',x[1]+1,'] ')); writeln; // #3 write('первый максимальный отрицательный элемент: '); var m: =s.maxby(x-> x[2]); writeln('q[',m[0]+1,',',m[1]+1,']=',m[2]) end. пример *** исходный массив [10x10] *** 29 29 4 -12 10 -25 0 -27 17 -17 -27 5 -11 -21 26 1 -29 -10 -12 5 18 -18 0 -11 -16 0 10 -1 -10 23 -5 -20 -14 13 14 -27 0 -26 4 -11 -20 13 0 -24 4 -4 -3 12 -13 -4 -24 27 -21 -8 -13 17 -2 -15 -26 -21 -5 -29 13 25 18 24 -12 7 -4 23 -30 27 17 29 -6 -25 12 -6 15 18 -27 28 -19 25 17 -1 -30 25 -5 28 5 -15 -30 -6 25 -21 30 6 -11 10 s=230 ненулевые элементы [1,1] [1,2] [1,3] [1,4] [1,5] [1,6] [1,8] [1,9] [1,10] [2,1] [2,2] [2,3] [2,4] [2,5] [2,6] [2,7] [2,8] [2,9] [2,10] [3,1] [3,2] [3,4] [3,5] [3,7] [3,8] [3,9] [3,10] [4,1] [4,2] [4,3] [4,4] [4,5] [4,6] [4,8] [4,9] [4,10] [5,1] [5,2] [5,4] [5,5] [5,6] [5,7] [5,8] [5,9] [5,10] [6,1] [6,2] [6,3] [6,4] [6,5] [6,6] [6,7] [6,8] [6,9] [6,10] [7,1] [7,2] [7,3] [7,4] [7,5] [7,6] [7,7] [7,8] [7,9] [7,10] [8,1] [8,2] [8,3] [8,4] [8,5] [8,6] [8,7] [8,8] [8,9] [8,10] [9,1] [9,2] [9,3] [9,4] [9,5] [9,6] [9,7] [9,8] [9,9] [9,10] [10,1] [10,2] [10,3] [10,4] [10,5] [10,6] [10,7] [10,8] [10,9] [10,10] первый максимальный отрицательный элемент: q[10,7]=30
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
swaTor03.03.2020 06:02
-
MiYaG1101.04.2020 04:13
-
n1kitat06.05.2023 08:41
-
aliosha133725.04.2022 19:45
-
Lia2002031308.03.2022 21:05
-
pilipenkorita310.04.2021 07:34
-
ХЕЛП20904.06.2020 23:39
-
yanzabelina24.04.2022 04:01
-
ИЩЕ621.05.2020 03:17
-
11211004.08.2021 06:53
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.