Написать программу, которая в массиве случйных чисел С[1 ... 5,1 ... 5] меняет местами значения элементов главной и вспомогательнй диагонали

program pr;

uses crt;

Var i, j, b:integer;

C:array[1 ... 5, 1 ... 5] of integer;

Begin

for i:=1 to 5 do Begin

Writeln;

for j:=1 to 5 do Begin C[i, j]:=random (100) ; Write (C[i, j],'|') ; end;

end;

for i:=1 to 5 do

Begin

b:=C[i, i];

C[i, i]:=C[i, 6-i];

C[i, 6-i]:=b;

end;

Writeln;

for i:=1 to 5 do Begin

Writeln;

for j:=1 to 5 do Write (C[i, j],'|') ;

end;

readln;

end.

uses crt;

var C:array[1 ... 5,1 ... 5] of integer;

i, j, temp:integer;

begin

randomize () ;

for i:=1 to 5 do

for j:=1 to 5 do

C[i, j]:=random (1000) ;

for i:=1 to 5 do begin

t:=C[i, i];

C[i, i]:=C[i, 6-i];

C[i, 6-i]:=t;

end

end.