Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 2. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, оканчивающееся на 2.
Пример работы программы:
Входные данные 4 3 22 6 12
Выходные данные 22
РЕШЕНИЕ (Turbo Pascal)
program SintezCode;
uses crt;
var n, max, i, d: longint;begin
clrscr;
readln(n);
while (n >= 1000) do
begin
writeln(‘Число больше 1000. Введите число меньшее.’);
readln(n);
end;
max := 0;
for i := 1 to n do
begin
readln(d);
while (d >= 30000) do
begin
writeln(‘Число больше 30000. Введите число меньшее.’);
readln(d);
end;
if (d mod 10 = 2) and ((max < d) or (max = 0)) then
max := d;
end;
writeln(max);
end.