Ответы на вопрос:
{1} const n = 6; var a: array[1..n,1..n] of integer; i,j: integer; t: integer; begin for i : = 1 to n do for j : = 1 to n do read(a[i,j]); for j : = 1 to n div 2 do for i : = 1 to n do begin t : = a[i,j]; a[i,j] : = a[i,n+1-j]; a[i,n+1-j] : = t; end; for i : = 1 to n do begin writeln; for j : = 1 to n do write(a[i,j],' '); end end. {2} const n = 6; var a: array[1..n,1..n] of integer; i,j: integer; t: integer; begin for i : = 1 to n do for j : = 1 to n do read(a[i,j]); for i : = 1 to n do for j : = i+1 to n do begin t : = a[i,j]; a[i,j] : = a[j,i]; a[j,i] : = t; end; for i : = 1 to n do begin writeln; for j : = 1 to n do write(a[i,j],' '); end end.
Популярно: Информатика
-
gvarya0528.06.2021 20:13
-
vitm130.03.2022 07:03
-
хики227.12.2022 01:58
-
ТуристАртемий27.08.2020 01:00
-
polina351026.03.2023 17:45
-
vdyblenkoo26.06.2023 07:21
-
6654665426.01.2021 17:07
-
наська24107.06.2023 22:41
-
svetavladimirovaaa19.06.2022 03:09
-
6jytu25.03.2023 12:32