Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function func(): double;
- var
- sum : double;
- count : integer;
- val : integer;
- begin
- sum := 0; // Переменная для хранения общей суммы
- count := 0; // Количество значений
- readln(val);
- while not (val = 0) do // Пока пходящее значение не ноль
- begin
- if (val > 0) then // Если входящее значение положительное
- begin
- sum := sum + val; // Добавляем в сумму значение
- count := count + 1; // И увеличиваем счетчик на единицу
- end;
- readln(val);
- end;
- if count = 0 then // Если нет корректных чисел, то среднего тоже нет
- begin
- writeln('No input data');
- func := 0; // Возвращаем 0
- end
- else
- func := (sum / count); // Возвращаем отношением суммы чисел к их количеству
- end;
- begin
- writeln(func():0:2);
- end.
Advertisement
Add Comment
Please, Sign In to add comment