Составьте и запишите компьютерную программу на языке программирования паскаль для решения следующей : заполнить целочисленный массив 20-ю случайными элементами в диапазоне от 50 до 100, вывести их на экран, а затем найти сумму лишь чётных чисел. до завтра
Внимание! Если программа не работает, обновите версию!
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