Дан массив А(15). Его элементы задаются случайным образом от -35 до 50. Найти сумму и среднее значение отрицательных эл-тов, сумму и кол-во положительных эл-тов. Решить всё в паскале
Дан массив А(15). Его элементы задаются случайным образом от -35 до 50. Найти сумму и среднее значение отрицательных эл-тов, сумму и кол-во положительных эл-тов. Решить всё в паскале
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы