Дан массив натуральных чисел. найти сумму элементов кратных числу к

Question

Дан массив натуральных чисел. найти сумму элементов кратных числу к

Answer 1

//PascalABC.Net 3.1.0.1200
begin
    var a := ArrRandomInteger(10, 1, 100);
    var k := ReadInteger('k =');
    writeln(a.Where(x -> x mod k = 0).Sum);
end.