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

i,q,w,e,r:integer;

begin

q:=0;

w:=0;

e:=0;

r:=0;

for i:=1 to 10 do

Begin

Write('Введите значение: ');

readln(a[i]);

if a[i]>0 then q:=q+a[i];

if a[i] mod 2 <> 0 then w:=w+a[i];

if (a[i] mod 2 = 0) and (a[i]>0) then e:=e+a[i];

if a[i]<0 then r:=r+1;

end;

WriteLn('Сумма положительных элементов: ', q);

WriteLn('Сумма нечетных элементов: ', w);

WriteLn('Сумму чётных положительных элементов: ', e);

WriteLn('Количество отрицательных элементов: ', r);

end.