Двумерные массивы. Помогите написать программу: заполнить массив 3х10там вот так получается:1 2 3 4 ...105 10 15 20 25...25 50 75 100...По какой-то формуле.Заранее благодарю))

Двумерные массивы. Помогите написать программу:  заполнить массив 3х10 там вот так получается: 1 2 3 4 ...10 5 10 15 20 25... 25 50 75 100... По какой-то формуле. Заранее благодарю))
Гость
Ответ(ы) на вопрос:
Гость
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, '] => ', a[i, j]);          end; end. Удачи)
Не нашли ответ?
Ответить на вопрос
Похожие вопросы