Двумерные массивы(((плиииииз....

[серега222]

Сформировать квадратную матрицу порядка n по заданному образцу

1 1 1 ... 1 1 1
2 2 2 ... 2 2 0
3 3 3 ... 3 0 0
.. .. .. .. .. .. ..
n-1 n-1 0 .. 0 0 0
n 0 0 .. 0 0 0

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j:integer;
    
begin
 clrscr;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   if j<=(n-i+1) then a[i,j]:=i;
   write(a[i,j]:3);
  end;
 writeln;
 end;

end.