В двумерном массиве A (N, N) все элементы первой строки заменить элементами последней строки. N=3. Массив заполняется с клавиатуры.

Const n=3;

var a:array[1 ... n, 1 ... n] of integer;

i, j, tmp:integer;

begin

for i:=1 to 3 do

for j:=1 to 3 do

read (a[i, j]);

for j:=1 to 3 do

a[1, j]:=a[3, j];

for i:=1 to 3 do begin

for j:=1 to 3 do

write (a[i, j]:3);

writeln;

end;

end.