knyazer

Untitled

Dec 16th, 2019
187
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.01 KB | None | 0 0
  1. Function func(): double;
  2. var
  3.   sum : double;
  4.   count : integer;
  5.   val : integer;
  6.  
  7. begin
  8.   sum := 0; // Переменная для хранения общей суммы
  9.   count := 0; // Количество значений
  10.  
  11.   readln(val);
  12.   while not (val = 0) do // Пока пходящее значение не ноль
  13.   begin
  14.     if (val > 0) then // Если входящее значение положительное
  15.     begin
  16.       sum := sum + val; // Добавляем в сумму значение
  17.       count := count + 1; // И увеличиваем счетчик на единицу
  18.     end;
  19.     readln(val);
  20.   end;
  21.   if count = 0 then // Если нет корректных чисел, то среднего тоже нет
  22.   begin
  23.     writeln('No input data');
  24.     func := 0; // Возвращаем 0
  25.   end
  26.   else
  27.     func := (sum / count); // Возвращаем отношением суммы чисел к их количеству
  28. end;
  29.  
  30. begin
  31.   writeln(func():0:2);
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment