Thorgalak
4 год назад
Сформировать массив из n случайных чисел от 0 до 86. Найти сумму чисел кратных 3.
ОТВЕТЫ
Gavrila
Oct 24, 2020
//PascalABC.Net 3.2 сборка 1318
begin
var ar:=ArrRandomInteger(ReadInteger(),0,86).Println;
write(ar.Where(x -> x mod 3=0).sum);
end.
begin
var ar:=ArrRandomInteger(ReadInteger(),0,86).Println;
write(ar.Where(x -> x mod 3=0).sum);
end.
357
Смежные вопросы:
