Здравствуйте, нужна помощь! Необходимо написать программу( в паскале) которая выведет...

Question

Здравствуйте, нужна помощь! Необходимо написать программу( в паскале) которая выведет двумерный массив рандомных чисел(3*3) на экран, а затем поменяет 1 и 3 строчку местами

Answer 1

Const n=3; 
var a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin for j:=1 to n do
  begin
  a[i,j]:=random(50)+50;
  write(a[i,j]:4);
  end;
  writeln;
 end;
for j:=1 to n do
 begin k:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=k; end;
writeln('Измененный массив');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  71  82  65
  87  98  79
  50  74  84
Измененный массив
  50  74  84
  87  98  79
  71  82  65