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

[Лена]

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

[hiv]

Вообще-то в старые советские времена нас учили оптимизации с самого начала. А сечас в школы выбирают учителей информатики из каких-то дворников. Самое простое - операция деления выполняется медленнее операции сложения на порядок (в 4-10 раз).
И учить школьников писать код:

Код

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

вместо:

Код

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

это просто издевательство!
В первом коде производится n суммирований и n делений, а во втором примере (как по началу писал Volvo) n суммирований и всего-то ОДНО деление. Нам в свое время за такие ошибки двойки ставили!

ЗЫ: Я конечно понимаю, что там ручной ввод данных, а если из файла? Учить надо сразу правильному кодингу. Да, мощности компов выросли немеренно, но и объемы обрабатываемых данных растут не отставая!

Сообщение отредактировано: hiv - 16.03.2005 19:25