Question

Найти заданную сумму положительных элементов,сумму четных и суммы первых пяти.
НУЖЕН КОД ДЛЯ ПОСКАЛИ!Помогите пожалуйста.

Answer 1

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.