1. Дана последовательность целых чисел, вводимых с клавиатуры (до 0). Найти среднее арифметическое чисел.

Question

Информатика

Марея

18 мая, 12:45

1. Дана последовательность целых чисел, вводимых с клавиатуры (до 0). Найти среднее арифметическое чисел.

+1

Ответы (1)

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

Януарий · Answer 1

Var

A, N:integer;

S:real;

Begin

N:=-1;

S:=0;

Repeat

Read (A) ;

N:=N+1;

S:=S+A;

Until A = 0;

WriteLn ('Среднее арифметическое введённых чисел равно: ', S/N) ;

End.