
Волохов
5 год назад
Задан одномерный массив А(N) (N<=60). Найти сумму положительных элементов и произведение отрицательных массива. Если сумма больше произведения, найти максимальный элемент массива, а если нет – выдать об этом сообщение
ОТВЕТЫ

Снежана
Oct 24, 2020
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var s:=a.Where(t->t>0).Sum;
var p:=a.Where(t->t<0).Aggregate(BigInteger(1),(x,y)->x*y);
Writeln('S = ',s,', П = ',p)
end.
n= 15
-61 -99 0 -48 -47 66 -27 89 -84 -77 32 -71 25 65 -42
S = 277, П = -7094887924215168
968
Смежные вопросы: