Найти произведение всех положительных элементов массива В(3,2).
Найти произведение всех положительных элементов массива В(3,2).
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var b:=MatrixRandom(3,2,-100,100); Writeln(b);
var p:integer:=1;
foreach var n in b do
if n>0 then p*=n;
Writeln('Произведение положительных: ',p)
end.
Тестовое решение:
[[-97,7],[25,-29],[54,50]]
Произведение положительных: 472500
Не нашли ответ?
Похожие вопросы