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

Question

Информатика

Марьяша

1 мая, 05:16

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

+4

Ответы (1)

Знаете ответ на вопрос?

Мироныч · 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.