Установил максимальное количество ! (100) Напишите - вопрос №13167818100 от Trasir 27.05.2021 04:02

Question

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

Trasir · Answer

Pascal?var min, max, j, count: integer;begin min:=30000; max:=0; readln(j); while j 0 do begin if (j mod 5 = 0) and (j min) then begin min:= j; count:= count + 1; end; if (j mod 5 = 0) and (j max) then begin max:= j; count:= count + 1; end; readln(j); end; if count = 0 then write( NO ) else write((min+max)/2);end....