Установил максимальное количество ! (100)
Напишите программу, которая в последовательности натуральных чисел определяет среднее значение между минимальным и максимальным для чисел кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода последовательности, и в последовательность не входит). Введённые числа не превышают 30 000.Программа должна вывести одно число: среднее значение между минимальным и максимальным для чисел кратных 5 или вывести NO, если таких чисел в последовательности нет.
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.
Используется лишь одна переменная - список L.
Пример работо