Ответы на вопрос:
Program test; uses crt; var arr: array[1..5,1..10] of integer; vec: array[1..10] of integer; i,j: integer; begin clrscr; randomize; for i: =1 to 5 do begin for j: =1 to 10 do begin arr[i,j]: =random(19)-9; write(arr[i,j],' '); end; writeln; end; for j: =1 to 10 do begin vec[j]: =abs(arr[1,j]); for i: =1 to 5 do if vec[j]> abs(arr[i,j]) then vec[j]: =abs(arr[i,j]); end; writeln; for i: =1 to 10 do write(vec[i],' '); end.
Популярно: Информатика
-
bulatik31128.03.2020 11:22
-
urybalka2701.05.2021 10:19
-
marystuart2123.03.2023 06:41
-
Zolotareva198119.03.2021 07:09
-
MrAmoral08.02.2022 14:43
-
Хушкьвь07.04.2023 08:08
-
yosipkf19.08.2020 05:50
-
danilsartakov03.01.2020 07:39
-
Violetta2004w08.09.2022 19:59
-
Yassin24627.03.2021 03:29