Найдите средне арифметическое 15 чисел.

Найдите средне арифметическое 15 чисел.

Задать свой вопрос
Тема Кошевых
Всм?
Денчик Шельдяев
Обязано как минимум быть 2 числа
1 ответ

var

i:longint;

sr,ch: real;

begin

sr:=0;

for i := 1 to 15 do

begin

readln(ch);

sr:=sr+ch

end;

sr := sr/15;

writeln('Ответ: ',sr);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт