Матрицы и табулирование функций Опции

[Guest]

:molitva: Помогите, пожалуйста, решить задачу, это очень срочно!
Получить [Aij] i=1,...,10-целочисленную матрицу для j=1,...,12, в которой Aij=i+2j.

[volvo]

Guest

Код

var
 i, j: integer;
 a: array[1..10, 1..12] of integer;
begin
 for i := 1 to 10 do
   begin
   for j := 1 to 12 do
     begin
       a[i, j] := i+2*j;
       write(a[i, j]:4)
     end;
   writeln
   end;
end.

Сообщение отредактировано: volvo - 5.12.2004 20:24