Среднее арифметическое нескольких чисел

[kazington]

Написать программу которая вычисляет среднее арифметическое нескольких чисел. Количество чисел может быть не ограниченное.

[p51x]

Считывайте, суммируйте и увеличивайте счетчик, а потом делите...

[Stilet]

kazington

код ввода таких чисел написать сам сможешь?

[newerow1989]

var i,n,s:integer;
    sr:real;
begin
   Randomize;
   n:=Random(20);
   s:=0;
   For i:=1 to n do
      s:=s+Random(50);
   sr:=s/n;
   Writeln(sr:5:5);
   Readln;
end.

Сойдет?

[min@y™]

Помогите!!!

1554022.jpg

Код рабочий!

З.Ы. ...просто безумно тащусь от конструкции цикла с параметром for ... in ... do...