Ответы на вопрос:
Var a: array [1..15] of integer; i, s: integer; begin for i : = 1 to 15 do read(a[i]); s : = 0; for i : = 1 to 15 do if i mod 2 = 0 then s : = s + a[i]; writeln(s); end.
Популярно: Информатика
-
lenyaalikin06.09.2022 09:18
-
clever11310.08.2020 19:33
-
УЧииНИК02.10.2022 15:43
-
Trolello06.03.2021 19:07
-
27sergey105.06.2022 16:29
-
krasorka24.05.2020 05:27
-
Master211113.12.2021 01:10
-
elias711410.08.2020 19:48
-
nastyak1211925.01.2020 03:29
-
Режик04.09.2022 10:34