profile
Опубликовано 5 лет назад по предмету Информатика от ValeriyaO

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

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

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

  1. Ответ
    Ответ дан HRAshton
    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.

    Удачи)
Самые новые вопросы