Question

Выручайте!Pascal abc.
Дан массив размером n×n, элементы которого целые числа. При решении использовать двумерный массив. {Продолжение условия на фотографии}.

Answer 1

var a: array of array of integer;

i,j,n,m,k,c: integer;

begin

write('Введите количество строк: ');

readln(m);

write('Введите количество столбцов: ');

readln(k);

n:=m*k;

setlength(a,k);

for i:=0 to k-1 do setlength(a[i],m);

c:=0;

for i:=0 to k-1 do

for j:=0 to m-1 do begin inc(c); a[i,j]:=c; end;

for i:=0 to k-1 do begin

writeln;

for j:=0 to m-1 do write(a[i,j],' ');

end;

readln;

end.