Var ma:array of array of integer; n,i,j:integer; begin readln(n); setlength(ma,n); for i:=0 to n-1 do setlength(ma[i],n); for i:=0 to n-1 do for j:=0 to n-i-1 do ma[i,j]:=i j 1; for i:=0 to n-1 do begin for j:=0 to n-1 do write(ma[i,j]:4); writeln; end; end.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
