Среднее арифметическое N чисел, при помощи счетного оператора цикла FOR Опции

[Лена]

Огромное спасибо тому человеку, который сделал мне прошлую программу!
Но сейчас нам задали еще одну и к завтрашнему дню: нужно найти среднее арифметическое n чисел. Причем n может быть любым. Сначала нужно спросить, сколько чисел надо.
Помогите, плиз.

[volvo]

Лена, Extended можно заменить на Real, а вот Array к сожалению заменить ни на что не получится :no: Массив должен быть описан...

Хотя зачем?

Код

var i, n: integer;
 sum, x: real;
begin
 write('n = '); readln(n);
 sum := 0.0;
 for i := 1 to n do
   begin
     write(i, '-е число = '); readln(x);
     sum := sum + x
   end;
 writeln('среднее арифметическое = ', (sum/n):8:5)
end.

[Лена]

Огромное всем Вам спасибо, кто мне помог, особенно Volvo.

[Len]

Это снова я и с этой же программой. Ситуация уже критическая. Завтра нам выставят двойки
за несданные программы. А у меня их две.
Среднее арифметическое вы написали абсолютно правильно. Но информатичке
не нравится sum:=0.0 и sum:=sum+x. Она говорит, что это не надо.
Ей нужна какая-то формула, вероятно вместо (sum/n).
Если убрать sum:=0.0 и sum:=sum+x, то программа начинает каждый раз выводить другое число, когда я спрашиваю, продолжить выполнение или нет.
Подскажите, пожалуйста, какая нужна формула?

[volvo]

информатичке
не нравится sum:=0.0 и sum:=sum+x. Она говорит, что это не надо.
Ей нужна какая-то формула, вероятно вместо (sum/n).

объясните Вашей информатичке, что если не сделать "sum := 0.0", то программа может начать подсчет суммы не с 0 (как положено), а с какого-то постороннего значения, т.к. компилятор Паскаля автоматически обнуляет переменные только тогда, когда программа запускается из среды Паскаля; если же она запускается из ОС, то в переменной sum может оказаться (и окажется) совершенно посторонее значение. Так что обнуление переменных - обязательно.

Что касается второй части вопроса, то возможно она хочет, чтобы это делалось так:

Код

 for i := 1 to n do
  begin
    write(i, '-е число = '); readln(x);
    sum := sum + x/n
  end;
writeln('среднее арифметическое = ', sum:8:5)

Если не так, то я просто не знаю, чего она от вас требует. Ну не придумали способа вычисления среднего арифметического без ввода и суммирования всех значений в цикле...

Кстати, если она все-таки соизволит рассказать, что это за способ, обязательно напишите о нем сюда... Очень хочется знать, как это - не вводя числа (или не суммируя их) - подсчитать их среднее арифметическое.

[Len]

Нет, не так...
Ей нужна формула, a sum:=sum+x и sum:=0.0 мне приказали убрать...
ПОМОГИТЕ, ПЛИЗ! :molitva:

[volvo]

Ей нужна формула

В таком случае тут одно из 2-х: либо Вы неправильно даете задание (возможно, оно звучало не совсем так, как записано в первом посте), либо - Ваша информатичка просто хочет Вас что называется "завалить". (Есть еще третья опция, но я не буду вдаваться в подробности...)

hiv

Нам в свое время за такие ошибки двойки ставили!

:zdorov: