Паскаль. Найти произведение сумм положительных элементов столбцов матрицы
Подскажите пожалуйста, что нужно вписать программу, чтобы выводило ПРОИЗВЕДЕНИЕ сумм столбцов
вот программа, которая вычисляет сумму положительных элементов столбца
program hhhhhhh;
uses crt;
const mx = 20;
var a: array [1..mx, 1..mx] of integer;
i, r, j, c: integer;
p: double;
s:real;
found: boolean;
begin
randomize;
write('Введите кол-во строк (1..', mx, '): ');
readln(r);
writeln;
if (r<1) or (r> mx) then
writeln(' не верно введены данные!!!')
else
write('Введите кол-во столбцов (1..', mx, '): ');
readln(c);
if (c<1) or (c> mx) then
writeln(' не верно введены данные!!!')
else
writeln;
writeln(' Исходная матрица:');
writeln;
for i := 1 to r do
begin
for j := 1 to c do
begin
a[i, j] := -99 + random(199);
write(a[i, j]:4)
end;
writeln;
end;
writeln;
writeln;
writeln(' Сумма положительных элементов столбцов матрицы:');
writeln;
writeln;
for j := 1 to c do
begin
s:=1;
p := 0;
found := false;
writeln;
write('В ',j:2, ' столбце: ');
for i := 1 to r do
if (a[i, j] > 0)then
begin
p := p + a[i, j];


found := true
end;
if found
then writeln(p:0:0)
else writeln('Положительные элементы не найдены!!!');


end;

end.
Как мне посчитать произведение сумм????

И не мудрено запутаться... Программу можно составить значительно проще. И еще. Когда пишешь программу, сначала не надо делать проверки на корректность ввода. Вот когда программа заработает, тогда и расставишь так называемую "защиту от дурака" (это официально так называют различного рода проверки . 

А когда тебе нужна программа? А то я из Сибири, у нас уже ночь.  Можешь завтра напомнить о проблеме, попробую составить оптимальную программу...

хорошо

спасибо ))))

я просто не знаю как там вставить новый массив из сумм 

Заводим массив, в котором будут располагаться суммы положительных элементов соответствующего столбца, а потом в цикле находим их произведение, например, в массиве получены следующие суммы:S[1] , S[2], S[3] ....S[n]  - суммы элементов столбцов (число столбцов равно n)Тогда поможет фрагмент :P:=1;for i := 1 to n do   P:=P * S[i];Writeln (' P = ', P)