Var
a:array [1..8] of integer;
i,summ,n:integer;
begin
randomize;
for i:=1 to 8 do begin
a[i]:=random(1,10);
write(a[i], ' ');
end;
n:=0;
summ:=0;
for i:=1 to 8 do
if a[i] mod 2=0 then
n:=n+1
else
summ:=summ+a[i];
writeln('');
writeln('Количество четных элементов ',n);
writeln('Сумма нечетных ',summ);
end.