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

[Лена]

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

[hiv]

Нули убрать можно так:

Код

if n>0 then
begin
 write('1-е число = '); readln(sum);
 for i := 2 to n do
 begin
   write(i, '-е число = '); readln(x);
   sum := sum + x;
 end;
 sum:=sum/n;
 writeln('среднее арифметическое = ', sum:8:5)
end
else writeln('Данные отсутствуют! Среднее арифметическое посчитать не возможно!');