8.  Заполнить таблицу размерности n*n:

1 2 3 … n

1 2 3 … n

……….

1 2 3 … n

Решение

program lab4;

type mas=array[1..100, 1..100] of integer;

var a:mas;

i,n,j:integer;

begin

writeln('Vvedite n');

readln(n);

for i:=1 to n do

    for j:=1 to n do

    a[i,j]:=j;

 

for i:=1 to n do

begin

    for j:=1 to n do

    write(a[i,j],' ');

    writeln;

end;

end.