Question

Помогииите с задачей по информатике

Answer 1

const

y = 10;

var

a : array [1..y] of real;

avg : real;

s : integer;

begin

for var i:=1 to y do

read(a[i]);

for var i:=1 to y do

if a[i]<0 then begin

avg:= avg+a[i];

s:= s + 1;

end;

avg:= avg/s;

write(avg);

end.