процедура

[KateMM]

Люди, кто может помочь довести до конца программку...
Условие...
Вычислить суммы элементов расположенных ниже главной диагонали для матриц : А(10,10), В(8,8), D(12,12). Рекомендуемы тип п/прог. и метод решения.
Вот что есть:

type
tarr = array[1..12,1..12] of integer;

procedure MyP(p: tarr; n: integer);
var
g, h, sum: integer;
begin
sum := 0;
for g := 1 to n do
for h := 1 to n do
if g > h then sum := sum + p[g, h];
writeln(sum);
end;

var
a, b, d: tarr;
i, j: integer;

begin
randomize;
for i := 1 to 10 do
for j := 1 to 10 do
a[i, j] := random(10);

for i := 1 to 10 do
begin
for j := 1 to 10 do
write(a[i, j], ' ');
writeln;
end;

MyP(a, 10);

for i := 1 to 8 do
for j := 1 to 8 do
b[i, j] := random(10);

for i := 1 to 8 do
begin
for j := 1 to 8 do
write(b[i, j], ' ');
writeln;
end;

MyP(b, 8);


for i := 1 to 12 do
for j := 1 to 12 do
d[i, j] := random(10);

for i := 1 to 12 do
begin
for j := 1 to 12 do
write(d[i, j], ' ');
writeln;
end;

MyP(d, 12);

end.

Мне нужно универсальную программку(не только для трех матриц).


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Базиля]

Программа не ваша чтоли?
Я гляжу в процедуре далеко не сумма элементов на главной диагонали считается.
Ну можно реализовать что-то вроде, указываете кол-во матриц изначально, потом в цикле заполняете каждую матрицу и передаете ее в процедуру сразу, прямо в цикле.
P.S. И процедуру подправить нужно, там далеко не сумма элементов по главной диагонали считается.

[KateMM]

Это то, что я делала.
Вот я спрашиваю, кто может помочь сделать универсальную программку для матриц??

[Базиля]

Ладно. Вы даже не внимательно читаете посты
Вы можете объяснить что вы хотели сказать этим кусочком?

for g := 1 to n do
 for h := 1 to n do
 if g > h then sum := sum + p[g, h];

Что за сумма у вас здесь считается?

кто может помочь сделать универсальную программку для матриц??

Яж вам уже вариант подходящий описал, в чем сложности то?

[KateMM]

ну это основная программа в ней вводится матрица и суммируются элементы ниже главной диагонали

[Базиля]

KateMM
Ладно....все ясно....

witeln('Введите количество матриц');
readln(num);
for i1:=1 to num do
begin
writeln('введите количество строк и стобцов');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i, j] := random(100);
myp(a,n);
end;

Что-то меня переклинило, мне показалось что нужно считать сумму по главной диагонали.

[KateMM]

спасибки)))