const n=8;
var a:array [1..n] of integer;
i,p,s,k:integer;
begin
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i]>0 then p:=p+1;
write (a[i],' ')
end;
writeln;
writeln('Количество элементов больше 0: ',p);
write ('Массив (заменяем отрицательные элементы на 100): ');
for i:=1 to n do
begin
if a[i]<0 then a[i]:=100;</p>
if a[i] mod 2 = 0 then
begin
s:=s+a[i];
k:=k+1
end;
write (a[i],' ')
end;
writeln;
writeln('Среднее арифметическое чётных элементов: ',s/k:0:3);
end.