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

1 1 1 … 1

2 2 2 … 2

………….

n n n … n

Решение

program lab48;

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]:=i;

 

for i:=1 to n do

begin

    for j:=1 to n do

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

    writeln;

end;

end.