Question

Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования

Паскаль для решения следующей задачи:

заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами

в диапазоне от 50 до 100, вывести их на экран, а затем найти сумму лишь ЧЁТНЫХ чисел. Срочно до завтра

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,50,100); a.Println;
  Writeln('Сумма четных значений равна ',a.Where(t->t.IsEven).Sum)
end.

Пример
60 77 58 60 64 54 91 78 56 85 65 87 83 76 83 63 63 77 97 67
Сумма четных значений равна 506