Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4<N<20).

ну лан тода спс

всем спс хто ответил хотяб

если я правильно понял то, 6.8.10.12.14.16.18

program z1;var n, a, i, s:integer;beginread(n); s:=0;for i:=1 to n do beginread(a); if (a>0) and (a mod 2=0) then s:=s+a;end;write(s);end.