Дано натуральное число n. Найти среднее арифметическое чисел до первого 0

[Хр@мовник]

Дано натуральное число n найти среднее арифметическое чисел до первого 0 если n - количество!....

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Smitt&Wesson]

В цикле вычисляем n = (n + m)/2 где m - следующее число. Точнее сказать не могу. Язык не указан.

[Poma][a]

begin
       ReadLn (n);
       s := 0;
       for i := 1 to n do begin
               ReadLn (t);
               if t <> 0 then
                       r := r + t
               else
                       Break;
               
               WriteLn (r / n);
end.

З.Ы. смени лучше тему, а то баллы дадут....
З.Ы.Ы

Язык не указан.

А раздел?

[Serge_Bliznykov]

тогда уже:

var N, t, s, k, i : integer;
begin
    WriteLn('Введите количество чисел N= ');
    ReadLn (n);
    s := 0; { сумма чисел до первого нуля }
    k ;= 0; { количесто чисел до первого нуля}
    for i := 1 to n do begin
        ReadLn (t);
        if t=0 then Break; { прервать цикл, если встретили ноль}
        s := s + t;
        k := k + 1;
    end;

    if k=0 then WriteLn('Нет чиcел до нуля!')
    else WriteLn ('Среднеарифметическое: ', s / k);

    readln;
end.