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

Question

Информатика

Степаша

25 июля, 14:53

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

+5

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