Begin var a:=ReadArrInteger('Вводите массив:',9); Write('1) S=',a.Where(x->(x<0)).Sum); Writeln(' П=',a.Where(x->x<0).Aggregate(1,(p,x)->p*x)); Writeln('2) K=',a.Where(x->x mod 7=0).Count); Write('3) П=',a.Where(x->(x mod 2=0)and(x mod 5<>0)).Aggregate(1,(p,x)->p*x)); Writeln(' K=',a.Where(x->(x mod 2=0)and(x mod 5<>0)).Count); end.
Answers & Comments
Verified answer
Beginvar a:=ReadArrInteger('Вводите массив:',9);
Write('1) S=',a.Where(x->(x<0)).Sum);
Writeln(' П=',a.Where(x->x<0).Aggregate(1,(p,x)->p*x));
Writeln('2) K=',a.Where(x->x mod 7=0).Count);
Write('3) П=',a.Where(x->(x mod 2=0)and(x mod 5<>0)).Aggregate(1,(p,x)->p*x));
Writeln(' K=',a.Where(x->(x mod 2=0)and(x mod 5<>0)).Count);
end.
Пример:
Вводите массив: 2 -4 7 10 -5 2 0 9 -1
1) S=-10 П=-20
2) K=2
3) П=-16 K=3