Двумерные маcсивы(дороботка).

[Hostlman]

Уважаемые программисты, помогите решить задачу:

Написать программу, которая позволяет напечатать таблицу Пифагора. Таблица Пифагора - это квадратная матрица из 10 строк и 10 столбцов, каждый элемент которой определяется формулой: A[i,j] = i*j.

вот мой вариант решения, но он не верен.


const n=1; const m=9;
var a:array[1..n,1..m] of integer;
b:array[1..9] of integer;
c:array[1..9] of integer;
z,i,d,j:integer;
begin
z:=1;d:=1;
repeat
a[1,1]:=b[1]*c[1];
a[1,j+1]:=b[z+1]*c[1];
z:=z+1;
until z>=9;
begin
repeat
a[1,1]:=b[1]*c[1];
a[i+1,1]:=b[1]*c[d+1];
d:=d+1;
until d>=9;
j:=1;i:=1; z:=1;d:=1;
begin
a[i+1,j+1]:=b[z+1]*c[d+1];
writeln (a[i,j]);
end; end;end.

[mihali4]

Таблица Пифагора - это квадратная матрица из 10 строк и 10 столбцов, каждый элемент которой определяется формулой: A[i,j] = i*j.

var a:array[1..10,1..10] of integer;
     i,j: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=i*j;
end;

[Карась]

надо ещё одну переменную указать в var.