Паскаль. Найти произведение сумм положительных элементов столбцов матрицы Подскажите пожалуйста, что нужно вписать программу, чтобы выводило ПРОИЗВЕДЕНИЕ сумм столбцов вот программа, которая вычисляет сумму положительных элемен...
Паскаль. Найти произведение сумм положительных элементов столбцов матрицы
Подскажите пожалуйста, что нужно вписать программу, чтобы выводило ПРОИЗВЕДЕНИЕ сумм столбцов
вот программа, которая вычисляет сумму положительных элементов столбца
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)
Не нашли ответ?
Похожие вопросы