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

n    n    n   .. n

n-1 n-1 n-1 … n-1

……………..….

1    1    1   … 1

Решение

program lab19;

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

for i:=1 to n do

begin

    for j:=1 to n do

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

    writeln;

end;

end.