Question

Номер 3, номер 4..плез. Информатика

Answer 1

3) 45
4) 
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.

Answer 2

сейчас будет на 4 вопрос) подожди)

Answer 3

дописал