В двумерном массиве 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.  

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.