Написать программу для нахождения суммы 7 чисел если они чётные
Ука12345
3
16.03.2020 03:19
1
Другие вопросы по теме Информатика
vapapsroyflmq
14.06.2019 08:20
bubles13
14.06.2019 08:20
Inozemceva1981
05.02.2021 11:40
tkalichzhenya
05.02.2021 11:40
А6р7с8е9н
05.02.2021 11:41
Mirskaya
05.02.2021 11:42
Unicornssss
05.02.2021 11:42
amina320
02.11.2020 08:14
Популярные вопросы
- Слепой музыкант Что чувствует Пётр играя на пианино? ...
3 - 2-тапсырма. Берілген сөз тіркестерін пайдаланып, ұжымдық қарым-қатынасқа қатысушы...
3 - Ветви параболы y=123x2 направлены: влево вниз вправо вверх...
3 - В государстве К. был выбран новый политический лидер (президент страны). Назовите...
3 - Електричні заряди двох хмар дорівнюють 12Кл і 20Кл, середня відстань між ними...
3 - Найдите обьем прямоугольного параллелепипеда, у которого длина а=6м,площадь...
2 - с решением, буду очень благодарна ...
2 - я читал роман граф Монте кристо но все равно задам во и подарю бесплатно пять...
2 - значение выражения М²+N² для чисел М=⁴√6₊⁴√216 и N=√20-7√6 (7 под корнем 6 и...
1 - Выполните действия применяя распределительное свойство умножения (90+30)*4 (25+50)*4...
2
program exec;
var a:array [1..7] of integer;
var i,sum:integer;
begin
sum:=0;
for i:=1 to 7 do begin
readln (a[i]);
if (a[i] mod 2=0) then sum:=sum+a[i];
end;
writeln (sum);
end.