Серафим
6 год назад
Дан массив натуральных чисел. найти сумму элементов кратных числу к
ОТВЕТЫ
Sayunresz
Aug 2, 2019
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(10, 1, 100);
var k := ReadInteger(k =);
writeln(a.Where(x -gt; x mod k = 0).Sum);
end.
begin
var a := ArrRandomInteger(10, 1, 100);
var k := ReadInteger(k =);
writeln(a.Where(x -gt; x mod k = 0).Sum);
end.
50
Смежные вопросы:
