С клавиатуры вводится целое число N>0, а затем еще N целых чисел. Подсчитайте, сколько...

Question

С клавиатуры вводится целое число N>0, а затем еще N целых чисел. Подсчитайте, сколько среди них трехзначных чисел, кратных семи

Answer 1

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

Begin
var n:= readlnInteger('n =');
var a:= ReadlnString.ToIntegers;
SetLength(a, n);
var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count;
Writeln(k);
end.