Напишите программу, которая в последовательности натуральных чисел определяет максимальное, оканчивающееся на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 1
Вопрос Напишите программу в паскале
- Автор темы FaTaJI
- Дата начала
Читаем количество чисел: read
; Пока мы не нашли ни одного числа, претендующего на максимальное, зададим его равным 0 - так, чтобы любое подходящее число (натуральное > 0) оказалось больше него и могло считаться максимальным: max:=0; Дальше в цикле читаем сами числа и каждое из них проверяем: for i:=1 to n do begin read(q); ... {Здесь будем проверять} end; На месте многоточия тебе нужно проверить два условия: 1) (q > max) - очередное число q больше предыдущего И 2) (q mod 10 = 1) - число при делении на 10 дает остаток 1, то есть последняя цифра - единица. Если оба условия соблюдены - запоминаем наше число q как максимальное из встреченных на данный момент: max:=q; После этого цикла выводим число max.
; Пока мы не нашли ни одного числа, претендующего на максимальное, зададим его равным 0 - так, чтобы любое подходящее число (натуральное > 0) оказалось больше него и могло считаться максимальным: max:=0; Дальше в цикле читаем сами числа и каждое из них проверяем: for i:=1 to n do begin read(q); ... {Здесь будем проверять} end; На месте многоточия тебе нужно проверить два условия: 1) (q > max) - очередное число q больше предыдущего И 2) (q mod 10 = 1) - число при делении на 10 дает остаток 1, то есть последняя цифра - единица. Если оба условия соблюдены - запоминаем наше число q как максимальное из встреченных на данный момент: max:=q; После этого цикла выводим число max.- Статус