Известно N чисел (числа задаются случайным образом в промежутке [-1; 25]). Определите сумму чисел, кратных 4. В качестве решения задачи необходимо представить программный код процедуры и протоколы (скрины) тестирования программного кода. PascalABCNET написать
296
421
Ответы на вопрос:
begin
ArrRandom(ReadInteger, -1, 25) // массив случайных чисел
.Println // вывести
.Where(p -> p mod 4 = 0) // отобрать кратные 4
.Sum // найти их сумму
.Print // вывести
end.
корректировка трансформация коррекция художественные смешанная контур оболочка выдавливание линза добавить перспективу поворот копировать объект клонировать эффект
Популярно: Информатика
-
anavysockaa206030.07.2020 07:59
-
Thevalk309.08.2021 01:30
-
sof200814.12.2022 12:01
-
Anele200319.11.2020 21:54
-
rebecca33212.09.2021 11:42
-
galuhlulia17.11.2020 22:10
-
Marína1911200629.05.2023 02:54
-
soficaflymi09.11.2022 03:14
-
Olivka0922.08.2020 11:52
-
Катя456789012312.08.2022 01:36