Question

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Программа должна вывести одно число — максимальное число, оканчивающееся на 3.

Answer 1

program numbers;

var numbersCount, maxNum, num, i: integer;

begin

 write('Enter sequence length: ');

 readln(numbersCount);

 

 maxNum := -1;

 

 for i := 1 to numbersCount do

 begin

   write('num ', i, ': ');

   readln(num);

   

   if (num mod 10 = 3) and (num > maxNum) then

       maxNum := num;

 end;

 

 writeln('Max num: ', maxNum);

end.