Заполнить массив паскаль 20 баллов!) 1 2 3 4 5 11 12 13 14 15 16 17 18 19 20 21 22 23 24...

Question

Заполнить массив паскаль 20 баллов!)
1 2 3 4 5
11 12 13 14 15
16 17 18 19 20
21 22 23 24 25

Comments

строчки 6 7 8 9 10 нет?

---

Нет

Answer 1

Const
  n = 4;
  m = 5;
var
  i, j, k: integer;
  a: array [1 .. n, 1 .. m] of integer;
begin
  i := 1;
  for j := 1 to 5 do a[i, j] := j;
  k := 0;
  for i := 3 to n + 1 do
  begin
    for j := 1 to m do
    begin
      k := (i - 1) * m + j;
      a[i - 1, j] := k;
    end;
  end;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4);
    writeln;
  end;
  readln;
end.