ПАСКАЛЬ
Дан одномерный целочисленный массив A[10]. Массив вводится с клавиатуры.
Написать программу, которая будет находить произведение четных элементов массива.
Gladiator974
2
10.04.2020 16:25
3
Другие вопросы по теме Информатика
его18
21.03.2020 15:50
2007пуля
26.06.2019 16:00
ilnitskiy
26.06.2019 16:00
Vakluver
30.06.2019 00:10
MrStepWay
30.06.2019 00:10
dakar3642
05.09.2019 11:30
ктознаетрусский
05.09.2019 11:30
zvezdaanara
05.09.2019 11:30
Популярные вопросы
- С чего складаеться скелет рыбы? (7клас)биология...
3 - 2. Работа с картой.Объясните политические процессы в государствах....
2 - Сравните свойства указанных элементов (радиусы атомов (r), их энергии ионизации...
1 - Таблица по истории 7 класс по 21 параграфу дата, договор, мл какими странами...
2 - А в степени минус 5 - a в степени минус 6 / a в степени минус 4 - A в степени...
2 - Соч по географии 7 класс 3 четверть...
3 - Сопротивление увеличивается при нагревании у 1)ртути, германия, железа; 2)...
1 - Напишите Один день в доме деда Каширина от лица Алёши 35 б...
2 - Площадь треугольника ABC равна 70√2см2. АВ = 14см, АС = 20см. Найдите градусную...
2 - Как подписывать титульник СОЧ по англ. языку?! Summative assessment...
1
var a: array [1..10] of integer;
var s,i: integer;
begin
s:=1;
for i:=1 to 10 do
begin
read(a[i]);
if (a[i] mod 2 = 0) then s:=s*a[i];
end;
writeln('Произведение четных элементов массива: ',s);
end.