Question

15.2. Напишите программу, которая в последовательности натуральных чисел определяет среднее значение между минимальным и максимальным для чисел кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода последовательности, и в последовательность не входит). Введённые числа не превышают 30 000.
Программа должна вывести одно число: среднее значение между минимальным и максимальным для чисел кратных 5 или вывести NO, если таких чисел в последовательности нет.

Answer 1

На PASCAL:

program MinMaxAverage;

var

 num, min, max, count, sum: integer;

 hasMultipleOf5: boolean;

begin

 min := 30001;

 max := 0;

 count := 0;

 sum := 0;

 hasMultipleOf5 := false;

 

 repeat

   readln(num);

   if num > 0 then

   begin

     if (num mod 5 = 0) then

     begin

       hasMultipleOf5 := true;

       if num < min then

         min := num;

       if num > max then

         max := num;

       sum := sum + num;

       count := count + 1;

     end;

   end;

 until num = 0;

 if hasMultipleOf5 then

   writeln(sum/count)

 else

   writeln('NO');

end.