Алг
нач
цел i,n
цел a,s,k
ввод n
s:=0
k:=0
i:=0
нц
пока n>=i
ввод a
i:=i+1
если (mod (a,2) = 0)и(a>0 )то
s:=s+a;
k:=k+1;
все
кц
вывод s/k
кон
алг
нач
цел i,n
цел a,s,k
ввод n
s:=0
k:=0
нц
для i от 1 до n
ввод a
если (mod (a,2) = 0)и(a>0 )то
s:=s+a;
k:=k+1;
все
кц
вывод s/k
кон