Question

Сформировать следующую квадратную матрицу:
111 112 113 114 115 116 117 118 119 120
101 102 103 104 105 106 107 108 109 110
91 92 93 94 95 96 97 98 99 100
81 82 83 84 85 86 87 88 89 90
* ** * * * * * * * * * * * * * * * *
11 12 13 14 15 16 17 18 19 20
1 2 3 4 5 6 7 8 9 10

Учусь в 10 классе, так что простую прогу напишите, чтоб было понятно. Спасибо! Паскаль
На уроках делали через for и if (i,j)

Answer 1

var
  i,j:integer;
  a:array[0..11,0..9] of integer;
begin
  for i:=0 to 11 do begin
    for j:=0 to 9 do begin
      a[i,j]:=111+j-10*i;
      Write(a[i,j]:4)
      end;
    Writeln
    end
end.