Program PascalGuru;
var
a: array [1 .. 100, 1 .. 100] of integer;
i, j, n, p: integer;
procedure exchange(var a, b: integer);
var
c: integer;
begin
c := a;
a := b;
b := c;
end;
Procedure Exchange_Line(M1, M2: integer);
var
j: integer;
begin
for j := 1 to n do
exchange(a[M1, j], a[M2, j]);
end;
begin
write('Vvedite RAZMER matricy A:');
readln(n);
writeln('Vvedite matricy A:');
for i := 1 to n do
for j := 1 to n do
begin
write('A[', i, ',', j, ']=');
readln(a[i, j]);
end;
writeln('Vot vvedenaia matrica A:');
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j]:3);
writeln;
end;
writeln;
writeln;
{ ********************************************* }
p := n div 2;
for i := 1 to p do
Exchange_Line(i, (n + 1) - i);
{ ********************************************* }
writeln('Vot matrica A posle obmena:');
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j]:3);
writeln;
end;
readln;
end.