Сформировать и распечатать квадратную матрицу размерности М<20 следующего вида - Pascal(Паскаль)

1 0 0 ... 0
2 1 0 ... 0
3 2 1 ... 0
. . . ... .
. . . ... .
M M-1 M-2 1
Uses
    Crt;
    type matrix = array[1..100,1..100] of integer;
var
 i,j,n:integer;
  a:matrix;
 begin
 clrscr;
 writeln('Vvedite razmer matris');
 write('n=');readln(n);
 for i :=1 to n do
    for j :=1 to n do
     if (i>=j) then
       a[i,j] := i - j +1;
for i :=1 to n do
    begin
    for j :=1 to n do
        write(a[i,j]:3);
    writeln;    
    end;
readln; 
        
 end.

Leave a Comment

2 + 6 =