Ответы на вопрос:
Program al; 6 const n=12; var a : array[1..n] of integer; p,i: integer; begin writeln('vvedite massiv='); for i : = 1 to n do readln (a[i]); p: =1; for i : = 1 to n do if a[i] mod 2=0 then p: =p*a[i]; writeln('proizwedenie ciotnih elementov=',p); readln; end.
Популярно: Информатика
-
dron113110.04.2022 12:48
-
Tixaia13.06.2021 23:55
-
Kateriна07.07.2020 21:40
-
nikita0655619.04.2020 21:02
-
ТупаяСандра28.02.2020 07:07
-
ТанечкаКоновалова22.07.2022 01:24
-
ВасилисаВозгесенская06.01.2023 23:05
-
Минут50519.05.2023 23:20
-
1DiamonDragon129.03.2021 23:26
-
akopovaliza200330.08.2020 17:39