Напишите программу, которая в последовательности натуральных чисел определяет максимальное однозначное число. Кроме того, если есть число 19, то выводит «Yes», если его нет, то выводит «No». Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0. (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 10 000

kseniya7117 kseniya7117    2   13.05.2020 23:56    1

Ответы
vikimeis2006 vikimeis2006  28.08.2020 22:27

Возможное решение:

var n,i,a,min: integer;

begin 

 readln(n);

 min:=30001

 for i:=1 to n do

    begin

      readln(a)

      if (a mod 10 = 4) and (a < min)

           then min:= a;

    end;

 writeln(min)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика