Дана последовательность вещественных чисел а. Найти среднее арифметическое не...

Question

Дана последовательность вещественных чисел а. Найти среднее арифметическое не отрицательных членов этой последовательности.

Answer 1

Var a,k,s,i:integer; Begin Readln(a); For i:=1 to a do begin Read(i); If i>=0 then begin k:=k+i; inc(s); end; End; A:=k div s; Write(a); End.