Ответы на вопрос:
Var aa[1..7] : array of integer; i, s : integer; begin for i : = 1 to 7 do read(aa[i]); s : = 0; for i : = 1 to 7 do if aa[i] mod 2 = 0 then s : = s + aa[i]; writeln(s); end.
Популярно: Информатика
-
venyast56oxem2g12.12.2020 10:02
-
luluik28.04.2022 14:11
-
Dremachka19.09.2021 08:39
-
Aloha4406.05.2023 20:47
-
ObraztsovaOlga25.05.2020 15:38
-
Умник066623.04.2020 09:47
-
Marinap04174429.02.2020 20:52
-
rmaro8218.05.2020 07:19
-
kiryushadautovp00tv706.03.2021 16:08
-
3Belchonok330.04.2023 04:36