Инициализировать массив А из 20 элементов ** отрезке [20;70] и вывести его ** экран....

Question

Инициализировать массив А из 20 элементов на отрезке [20;70] и вывести его на экран. Найти

сумму четных значений элементов массива
количество значений кратных 5

Answer 1

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,20,70); a.Println;
  Writeln('Sчет= ',a.Where(t->t.IsEven).Sum);
  Writeln('Элементов, кратных 5- ',a.Where(t->t mod 5=0).Count)
end.

Пример
55 26 45 65 59 27 39 26 42 26 30 42 64 22 55 25 27 40 43 40
Sчет= 358
Элементов, кратных 5- 8