Question

Известно N чисел (числа задаются случайным образом в промежутке [-1; 25]). Определите сумму чисел, кратных 4. В качестве решения задачи необходимо представить программный код процедуры и протоколы (скрины) тестирования программного кода. PascalABCNET написать

Answer 1

begin

 ArrRandom(ReadInteger, -1, 25)  // массив случайных чисел

   .Println                      // вывести

   .Where(p -> p mod 4 = 0)      // отобрать кратные 4

   .Sum                          // найти их сумму

   .Print                        // вывести

end.