Найти заданную сумму положительных элементов,сумму - вопрос №7885660 от dashasm06 21.03.2021 08:08

Question

Информатика: Найти заданную сумму положительных элементов,сумму четных и суммы первых пяти. нужен код для поскали!

dashasm06 · Answer

begin
   var arr := arrRandom(10, -10, 10);
   write('Исходный массив: ');
   foreach var e in arr do write(e : 4);
   writeln();
   writeln('Сумма положительных элементов: ',
            arr.Where(e -> e >= 0).Sum(e -> e));
   writeln('Сумма чётных элементов: ',
            arr.Where(e -> e mod 2 = 0).Sum(e -> e));
   writeln('Сумма первых 5 элементов: ',
            arr.Take(5).Sum(e -> e));
end.