заполнить массив a[1..3,1..2]по формуле A[i,j]:=i*j и вывести на экран в виде таблицы

1

Ответы и объяснения

2013-11-18T04:42:25+00:00
Var
  a : array [1..3, 1..2] of integer;
  i, j : integer;
begin
  for i := 1 to 3 do
    for j := 1 to 2 do
      a[i, j] := i * j;
  for j := 1 to 2 do
  begin
    for i := 1 to 3 do
      write (a[i, j], ' ');
    writeln;
  end;
end.