Известно N чисел (числа задаются случайным образом в промежутке [-1; 25]). Определите сумму чисел, кратных 4. В качестве решения задачи необходимо представить программный код процедуры и протоколы (скрины) тестирования программного кода. PascalABCNET написать
Ответы на вопрос
Ответил BobbyFresnel
0
begin
ArrRandom(ReadInteger, -1, 25) // массив случайных чисел
.Println // вывести
.Where(p -> p mod 4 = 0) // отобрать кратные 4
.Sum // найти их сумму
.Print // вывести
end.
Приложения:
Новые вопросы