Var
i, x, sum, n: integer;
begin
read(n);
for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;
writeln(sum);
end.
Вы в интернете посмотри готовое домашнее задание класс и писателя книги. там найдете
Компас нужно для того что бы направляться по верному пути. микроскоп нужен для тож юго что бы изучать чтото.
И(-2>0;2-4>3) ⇒ <span><span>(-2>0) И (2-4>3) ⇒ ЛОЖЬ И ЛОЖЬ ⇒ ЛОЖЬ
</span>ИЛИ (5-8/2=1;9/3-3>=-1) ⇒ </span><span><span>(5-8/2=1) ИЛИ (9/3-3>=-1) ⇒
ИСТИНА ИЛИ </span>ИСТИНА ⇒ ИСТИНА
НЕ(2<3-4)
⇒ НЕ (ЛОЖЬ) ⇒ ИСТИНА</span>
1вг
2абг
3 б 11101110111
4в
5 501
6гвба
7б
8б
9г(переменных)
10в
11в
12 96
13 38с4