Program test;var x,i,S, SA:real;begini:=1;read (x);S:=x;if x<>0 then repeat begin read (x); S:=S+x; i:=i+1 end; until x<>0;if S=0 then write ('Первое число ноль');if S<>0 then begin SA:=S/i; writeln (SA) end;<span>end.</span>
Решим всё по формуле включений и исключений:
350+200+500-(50+20+10+5)=1050-85=965
Ответ: <u>965</u>