Среднее арифметическое 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.