Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 5. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число – максимальное число, кратное 5. без команды max

Ответы

ivac6136 07.07.2020 08:45

Var i, n, max, number :integer;
begin
readln(n); max:= 5; for i:= 1 to n do begin readln(number); if (number mod 5 = 0) and (number > max) then max:= number; end; writeln(number);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

kristinandrosov 19.07.2019 12:10

Определить периметр p правильного многоугольника если задан радиус вписанной окружности r и количество углов n: p=n*a, где a=2*r*tg(180градусов/n). это все в программе...

nas81 19.07.2019 12:10

Написати программу для визначення вартості спожитої електроенергії мова програмування паскаль, іть будь ласка...

данил20601 19.07.2019 12:10

Валгоритме выключения компьютера пропущена первая строчка. что в ней должно быть записано? 1) свернуть приложения; 2) закрыть все программы; 3) вызвать контекстное...

olesahshhahas 12.02.2021 00:17

С# 6. Написати програму знаходження членів послідовності с i =(а i — b i )*(а i + b i ) (1 i n).Кількість членів послідовності ввести з консолі. Масиви для зберігання...

МухаВж 17.03.2019 17:40

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: а) среднее арифметическое нечётных чисел....

Pro100god322 17.03.2019 17:40

Вэтом году 7 апреля международный сетевой центр internic официально зарегистрировал национальнй домен.ru для рф; сборная россия завоевала 23 медали на xvii зимних...

mashakesea03 17.03.2019 17:40

Дайте порівняльний аналіз понять редагування та форматування...

MasterSporta13 20.05.2019 16:20

Те решить . к реке одновременно подошли три купца и три разбойника.всем необходимо было переправится на противоположный берег.у берега стояла лодка,которая могла вместить...

svetysa95 20.05.2019 16:20

Что надо писать в выполнить чтобы посмотреть какие программы запускаются с компьютером(автозапуск)...

Владушкаcat 27.04.2020 14:35

Каков результат работы программы: Var k, m: integer; Dat: array[1..15] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6]...

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