Предмет: Информатика,
автор: prognad
надо сделать все это в одной программе: нахождение кол-во отрицательных элементов, суммы отрицательных элементов, среднее и наибольшее значение для положительных
Сделайте пожалуйста, отдаю все свои баллы
Ответы
Автор ответа:
0
//PascalABC.NET 3.3,сборка 1625 от 16.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99); mas.println;
Writeln('кол-во отрицательных элементов=',mas.Where(t->t<0).Count);
Writeln('сумма отрицательных элементов=',mas.Where(t->t<0).sum);
Writeln('среднее положительных=',mas.Where(t->t>0).Average);
Writeln('наибольшее положительных=',mas.Where(t->t>0).Max);
end.
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99); mas.println;
Writeln('кол-во отрицательных элементов=',mas.Where(t->t<0).Count);
Writeln('сумма отрицательных элементов=',mas.Where(t->t<0).sum);
Writeln('среднее положительных=',mas.Where(t->t>0).Average);
Writeln('наибольшее положительных=',mas.Where(t->t>0).Max);
end.
Приложения:

Автор ответа:
0
спасибо! а это массивы?
Автор ответа:
0
да
Автор ответа:
0
спасибо тебе большое
Похожие вопросы
Предмет: Английский язык,
автор: valeria8968
Предмет: География,
автор: Sasha12years
Предмет: Геометрия,
автор: lerochka9239
Предмет: Математика,
автор: ВикаНика11111
Предмет: Химия,
автор: feenseet