Надо сделать все это в одной программе: нахождение кол-во отрицательных элементов, суммы отрицательных элементов, среднее и наибольшее значение для положительных сделайте , все свои

maria2005dp maria2005dp    2   16.09.2019 01:00    0

Ответы
heh18 heh18  07.10.2020 18:41
//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.
Надо сделать все это в одной программе: нахождение кол-во отрицательных элементов, суммы отрицательн
ПОКАЗАТЬ ОТВЕТЫ
Arsen00628 Arsen00628  07.10.2020 18:41
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10, -100, 100);a.Println;
Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count);
Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum);
Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average);
if a.Where(t -> t > 0).Count > 0 then
  Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max)
else Writeln('Положительных чисел нет');

end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика