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

Question

Информатика

Марьяха

26 октября, 02:45

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

+3

Ответы (1)

Знаете ответ?

Еремей · Answer 1

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.