Получить ** экране ЭВМ квадратную матрицу: 1 2 3 4 ... 2 4 6 8 ... 3 6 9 12 ......

Question

Получить на экране ЭВМ квадратную матрицу:
1 2 3 4 ...
2 4 6 8 ...
3 6 9 12 ...
........................

Comments

Помогите! ПРОШУ!

Answer 1

Const m=20;
  var i,j,n: integer;
    a: array[1..m,1..m] of integer;
begin
  write('n = ');  readln(n);
{ заполнение массива и вывод на экран}
  for i:=1 to n do
  for j:=1 to n do
   begin
    a[i,j]:=i*j;
    write(a[i,j]:3,' ');
    if j=n then writeln;
  end;
 end.