Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать сумму всех положительных элементов.

sssmak1 sssmak1    2   01.09.2019 07:01    9

Ответы
Aidanok1 Aidanok1  06.10.2020 09:15
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  Writeln('Сумма положительных: ',a.Where(x->x>0).Sum)
end.

Пример
3 -4 9 -5 2 1 6 -4 10 -2
Сумма положительных: 31
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика