1. Информатика
  2. Установил максимальное

Установил максимальное количество ! (100)

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

Евгений006 Евгений006    1   20.05.2020 22:32    0

Ответы
egortupi egortupi  15.10.2020 03:21

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.

ПОКАЗАТЬ ОТВЕТЫ
максик88 максик88  15.10.2020 03:21
                                 PascalABC.NET                                  begin var L := Lst(ReadArrInteger(1)); while L.Last <> 0 do L.Add(ReadlnInteger); L.RemoveAt(L.Count - 1); if (L.Min..L.Max).Count(x -> x mod 5 = 0) <> 0 then Println((L.Min..L.Max).Where(x -> x mod 5 = 0).Average) else Println('NO'); end.

Используется лишь одна переменная - список L.

Пример работо
Установил максимальное количество ! (100) Напишите программу, которая в последовательности натуральн
Установил максимальное количество ! (100) Напишите программу, которая в последовательности натуральн
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Girlverysilly098887 Girlverysilly098887  22.06.2019 06:10
Увити было 7руб.он решил купить карандаш за × рублей.сколько денег у него останется или не хватит,если: 1)×=5, 2)×=10?...
LUBUMAR LUBUMAR  22.06.2019 06:10
Вджунглях разгорелся . багира должна перенести котенка, лисенка и мышонка через пропасть, чтобы их от огня. в какой последовательности она будет их переносить, учитывая, что котенок...
nikitagarin2 nikitagarin2  29.09.2019 13:01
как с точки зрения содержательного подхода к изменению информации определяется единица измерения количества информации? сколько битов информации несет сообщение о том. что из...
Tyshkanchik228 Tyshkanchik228  29.09.2019 13:01
Решить на pascal один из самых маленьких фруктов, не совсем привычный для нас и далеко не всем известный – рамбутан. на дереве плоды рамбутана растут небольшими гроздьями. посчитайте...
лена2611 лена2611  29.09.2019 13:01
Сколько килобайтов составит сообщение из 384 символов 16-ти символьного алфавита?...
margaritabennioxwu8x margaritabennioxwu8x  07.08.2019 07:30
Как перевести целые числа из десятичной системы счисления в восьмеричную(и 16-тиричную, если можно)с обьянениями...
oljkejik oljkejik  08.03.2019 23:00
Решите : бригада рабочих ремонтировала дорогу длинной 3км.сколько времени отработала бригада,если в день она ремонтировала 200 м? бассеин заливали водой в течении 45мин по 57литров...
muliku muliku  08.03.2019 23:00
Площадку для игр имеющую форму квадрата с длиной стороны 80м,посыпают песком расходуя на каждые 100м2 по 2 пачки песка.сколько потребуется тачек с песком,чтобы посыпать всю площадку?...
sabina9262 sabina9262  08.03.2019 23:00
Завод дыстав замовлення на виготовлення 2590 сывалок за 24 дны.першы дны завод випускав по 125 сывалок за день, а потым почав випускати щодня на 12 % быльше ы закынчив замовлення...
Sl1dan Sl1dan  08.03.2019 23:00
Как вычислить диоприю в линзах.напишите с самого начала по формулам от самого легкого....

Популярные вопросы