Задача по двумерным массивам (за маленькое вознаграждение)

[stinger-42]

Сообщение от Devikss

Что Вы будете делать?

писать на www.programmersforum.ru

[stinger-42]

Сообщение от BDA

можете постучать в асю, чтобы не светить номер здесь

у меня, к сожалению, нет ни qip ни icq ни mailagent...
контакт?

[BDA]

Devikss, наш спор ни к чему не приведет.
Конкретная задача - конкретное решение.

Вот универсальный вариант:

uses
  crt;

const
  h = 10;
  w = 5;

var
  a: array[1..h, 1..w] of integer;
  i, j: integer;

begin
  for i := 1 to h do
    for j := 1 to w do
      a[i, j] := w * (i - 1) + j;
  for i := 1 to h do
  begin
    for j := 1 to w do
      write(a[i, j], ' ');
    writeln;
  end;
  readln;
end.

stinger-42, насчет неуказания языка - это не правила форума (хотя там тоже может быть написано, не помню), но вам же нужен определенный язык, а не любой из существующих.

[stinger-42]

Сообщение от BDA

насчет неуказания языка - это не правила форума (хотя там тоже может быть написано, не помню), но вам же нужен определенный язык, а не любой из существующих.

хорошо, спасибо, буду знать на будущее! так как мне получить Ваш номер?

[BDA]

Пожалуйста.
Вообще, я вам на почту отправил письмо
Ну лан, тут быстрее vk - id8968877.

[Devikss]

Да согласен! Дальнейший спор бессмыслен