1-3
2-2
3-1
жду лучший ответ)
Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
<span>end.</span>
Переменная а, в, с, х:целый;
Начало
ввод(а);
с:=0;
для в:=1 до а делать
Начало
ввод(х);
если х>0 тогда начало
с:=с+х;
конец;
вывод("Количество слагаемых: ", в, " Сумма: ", с);
конец.
26+26=52, вот и всё,легко же