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

Предыдущий
вопрос Следующий
вопрос

program MaxNumberEndingInThree;

var
n, i, maxNumber: integer;

begin
maxNumber := -1;

write('Enter the number of elements: ');
readln(n);

for i := 1 to n do
begin
write('Enter number ', i, ': ');
readln(num);

end;

if maxNumber = -1 then
writeln('There are no numbers ending with 3.')
else
writeln('The maximum number ending in 3 is: ', maxNumber);

end.