Заполнить массив согласно примеру: 52222, 05222 ...

Поделиться:
52222
05222
00522
00052
00005
code: #pascal
var A:  array [1..5,1..5] of integer;
                        i,j :integer;
begin
For i:= 1 to 5 do
 begin
  For j:= 1 to 5 do
   begin
    if j<i then A [i,j]:=0
    else if j>i then A[i,j]:=2
    else A[i,j]:=5;
    write(A[i,j]:2);
   end;
  writeln;
 end;
end.

автор: Puporev

Похожие статьи: