Question

Помогите с информатикой

Answer 1

var a: array[1..100] of integer;

i,n,s,k: integer;

begin

Read(n);

For i:=1 to n do

Read(a[i]);

For i:=1 to n do begin

if (a[i]>3) and (a[i] mod 2=0) then

s:=s+a[i]; k:=k+1; end;

Writeln(s,k);

end.