Ответы на вопрос:
Var a: array [1..6, 1..5] of integer; i, j,n : longint; begin for i: = 1 to 6 do for j: = 1 to 5 do read (a[i, j]); writeln(); for j: = 1 to 5 do for i: = 1 to 5 do if a[2, i] > a[2, j] then swap(a[2, i], a[2, j]); for i: = 1 to 6 do begin for j: = 1 to 5 do write(a[i, j], ' '); writeln(); end; end.
Популярно: Информатика
-
dkuchanov135207.12.2020 14:17
-
mamkin0poc06.06.2023 13:11
-
Ytbjfdg02.07.2021 11:57
-
J98007.04.2023 15:28
-
Salina190427.04.2020 11:43
-
Danik0772726.07.2021 11:01
-
saba2218.05.2021 18:57
-
Маргарита551518.06.2022 02:55
-
angelina43622.03.2021 17:37
-
kkkkkddd22.06.2023 13:59