Двумерные ма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.

Заранее благодарен.

[puporev]

У тебя же написана формула A[i,j] = i*j. Чего ты еще выдумываешь?
1. Таблица квадратная, сл-но n=m.
2.Определись, таблица 10х10 или 9х9, если все таки 10х10, то n=10.
3.Зачем тебе ТРИ матрицы, если нужна одна таблица?
4.Все делается за раз:
for i:=1 to n do
for j:=1 to n do
a[i,j]:=i*j;
И все!

[Карась]

поначалу я долго вспоминал кто такой Пифагор и что за таблицу придумал

var a:array[1..10,1..10] of integer;
    x, y: byte;
begin
For x := 1 to 10 do begin
 For y := 1 to 10 do begin
 a[x,y] := x * y; Write (a[x,y],' '); End;
 Writeln; End;

Readln;
end.