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

1 1 1 1 … 1

0 2 2 2 … 2

0 0 3 3 … 3

……………

0 0 0 0 … n

Решение

program lab39;

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

var n,i,j:integer;

a:mas;

begin

writeln('Vvedite razmernost matrici (<10): ');

readln(n);

for i:=1 to n do

    for j:=1 to n do

    begin

         if j<i then a[i,j]:=0

         else a[i,j]:=i;

    end;

for i:=1 to n do

begin

    for j:=1 to n do

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

writeln;

end;

end.