Дан массив а(15). его элементы случайным образом от - вопрос №5771803153550 от Clem404 28.02.2022 11:10

Question

Информатика: Дан массив а(15). его элементы случайным образом от -35 до 50. найти сумму и среднее значение отрицательных эл-тов, сумму и кол-во положительных эл-тов. решить всё в паскале

Clem404 · Answer

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(15,-35,50); a.Println;
Writeln('Сумма отр.=',a.Where(x->x<0).Sum,', ср.арифм.отр=',
a.Where(x->x<0).Average:0:5);
Writeln('Сумма пол.=',a.Where(x->x>0).Sum,', кол-во пол.=',
a.Where(x->x<0).Count)
end.

Тестовое решение
13 9 18 -29 -33 7 41 -15 -2 10 7 -32 13 16 -1
Сумма отр.=-112, ср.арифм.отр=-18.66667
Сумма пол.=134, кол-во пол.=6