Дан массив натуральных чисел. найти сумму элементов кратных числу к
Дан массив натуральных чисел. найти сумму элементов кратных числу к
Гость
Ответ(ы) на вопрос:
Гость //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.
Не нашли ответ?
Похожие вопросы