var i,a,sp,ko2,sp2,kp2:integer;
p:biginteger;
begin
p:=1;
for i:= 1 to 100 do
begin
a:=random(199)-99;
write (a,' ');
if a > 0 then sp:=sp+a;
if (a < 0) and (a mod 2 = 0) then ko2:=ko2+1;
if a > 10 then p:=p*a;
if (a > 0) and (a mod 2 = 0) then
begin
sp2:=sp2+a;
kp2:=kp2+1
end
end;
writeln;
writeln ('Сумма положительных чисел равна ',sp);
writeln ('Кол-во отрицательных чётных чисел равно ',ko2);
writeln ('Произведение чисел больше 10 равно ',p);
writeln ('Среднее арифметическое положительных чётных чисел равнo ',sp2/kp2:0:3);
end.
