Сформировать массив из n случайных чисел от 0 до 86. Найти сумму чисел кратных 3.

Question

Сформировать массив из n случайных чисел от 0 до 86. Найти сумму чисел кратных 3.

Answer 1

//PascalABC.Net 3.2 сборка 1318

begin
  var ar:=ArrRandomInteger(ReadInteger(),0,86).Println;
  write(ar.Where(x -> x mod 3=0).sum);
end.

Comments

А нет другого варианта??))