Числа вводятся с клавиатуры, пока не будет введён 0. Вычислите среднее арифметическое этих чисел. Первое же число может оказаться нулём. Выведите в этом случае соответствующее текстовое сообщение.

Question

Информатика

Фортунат

23 сентября, 12:35

Числа вводятся с клавиатуры, пока не будет введён 0. Вычислите среднее арифметическое этих чисел. Первое же число может оказаться нулём. Выведите в этом случае соответствующее текстовое сообщение.

+4

Ответы (1)

Знаете ответ?

Фетинья · Answer 1

Program test; var x, i, S, SA:real; begini:=1; read (x) ; S:=x; if x0 then repeat begin read (x) ; S:=S+x; i:=i+1 end; until x0; if S=0 then write ('Первое число ноль') ; if S0 then begin SA:=S/i; writeln (SA) end; end.