Двумерные массивы. Помогите написать программу: заполнить массив 3х10там вот так выходит:1

Двумерные массивы. Помогите написать программку:

заполнить массив 3х10
там вот так получается:
1 2 3 4 ...10
5 10 15 20 25...
25 50 75 100...

По какой-то формуле.
Заблаговременно благодарю))

Задать свой вопрос
1 ответ
Var a: array [1..3, 1..10] of integer;
    i, m, j: integer;
begin
     for i := 1 to 3 do
         for j := 1 to 10 do
         begin
             if (i = 1) then a[i, j] := j;
             if (i = 2) then a[i, j] := 5 * j;
             if (i = 3) then a[i, j] := 25 * j;
             writeln('[', i, ', ', j, '] =gt; ', a[i, j]);
         end;
end.

Фортуны)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт