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

Question

Информатика

Сюша

14 декабря, 17:24

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

+4

Ответы (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.