Program PascalGuru;
uses crt;
var A:array[1..6,1..9] of integer;
i,j: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 9 do exchange (A[M1,j],A[M2,j]);
end;
{----------------------------------------------------}
begin
for i:=1 to 6 do
for j:=1 to 9 do begin
write ('A[',i,',',j,']='); readln (a[i,j]); end;
clrscr;
write ('Vot vvedennyy vami massiv A: '); writeln;
for i:=1 to 6 do begin writeln;
for j:=1 to 9 do write (A[i,j]:4,' '); end; {выводим массив}
Exchange_Line(1,6); {обмен 1 и 6 строки}
Exchange_Line(2,5); {обмен 2 и 5 строки}
Exchange_Line(3,4); {обмен 3 и 4 строки}
writeln;writeln;
write ('Vot PREOBRAZOVANNYI massiv A: '); writeln;
for i:=1 to 6 do begin writeln;
for j:=1 to 9 do write (A[i,j]:4,' '); end; {выводим массив}
readln;
end.