Verified answer

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;

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.