Секцію інструкцій, які виконуються багаторазово під час виконання циклу називають
231
383
Ответы на вопрос:
Program massiv; var i,max,n,j: integer; a: array[1..30] of integer; begin writeln ('введите элемент массива'); for i: =1 to 30 do begin write ('a[',i,']-'); readln (a[i]); end; n: =1; max: =a[i]; for i: =2 to 30 do if max< a[i] then begin max: =a[i]; n: =i; end; for i: =1 to 30 do if a[i]< 0 then a[i]: =-a[i]; writeln ('наибольший элемент в массиве ', max); writeln ('номер массива ', n); writeln ('получившийся массив'); for i: =1 to 30 do write (a[i],' '); end.
Популярно: Информатика
-
СофияСерая08.05.2022 22:10
-
jimjimkim03.12.2020 05:06
-
Тжвик28.07.2021 12:49
-
NastiLife08.06.2020 08:36
-
petrakovatatya19.05.2023 02:54
-
mcpoh28822.06.2023 20:00
-
olgadyra20.11.2021 12:12
-
zima21zima07.03.2023 03:36
-
алина379830.03.2023 21:04
-
дима287227.12.2021 18:37