Помогите пожалуйста ооооооочень срочно!!!!!!!!!! 20 баллов
Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений:
–5; 5; 36; –10; 98; 63; 2; 8; 37 ; –45.
В отчет включить тексты программ на Паскале, реакцию ЭВМ.
More Questions From This User See All
Answers & Comments
PascalABC.NET
begin
var A := ReadArrInteger('Введите числа:', 10);
Println('Произведение положительных:', a.Where(x -> x > 0).Product);
println('Сумма отрицательных:', a.Where(x -> x < 0).Sum);
Println('Количество отрицательных:', a.Count(x -> x < 0));
end.