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

Сделайте пожалуйста, отдаю все свои баллы

Ответы

Ответ дал: nkpk
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.
Приложения:
Ответ дал: prognad
0
спасибо! а это массивы?
Ответ дал: nkpk
0
да
Ответ дал: prognad
0
спасибо тебе большое
Вас заинтересует