Данн массив A(5)определить сумму элементов кратных 8.генератор случайных чисел...

Question

Данн массив A(5)определить сумму элементов кратных 8.генератор случайных чисел [20;40].вывести список элементов массива в одну строку

Answer 1

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

begin
  var a:=ArrRandom(5,20,40); a.Println;
  Writeln('S=',a.Where(x->x mod 8=0).Sum)
end.

Пример
24 23 35 40 22
S=64