Вариант 18 задание 2

В каждой строке матрицы Н(10,10) поменять местами элементы, расположенные на главной и побочной диагоналях.

//Вот тут конец программы.

program Prog2;

{$APPTYPE CONSOLE}
Const n=10;
Var H:Array [1..n,1..n] of integer;
i,j,k:integer;
begin
writeln (' Source Matrix...');
for i:=1 to n do {Создание исходной матрицы}
begin
for j:=1 to n do
begin
H[i,j]:=random(7);
Write (H[i,j],' ');
end;
WriteLn;
end;
Writeln;

for i:=1 to n do {Изменение матрицы}
begin
k:=H[i,i];
H[i,i]:=H[i,n-i+1];
H[i,n-i+1]:=k;
end;
writeln (' Edited matrix...');
for i:=1 to n do {Вывод изменёной матрицы}
begin
for j:=1 to n do
Write (H[i,j],' ');
writeln;
end;
Writeln;
writeln ('Press ENTER for EXIT');
readln;
end.

//Вот тут конец программы.