Введите с клавиатуры n целых чисел . Найти среди этих чисел последнее нечетное число и его порядковый номер . Если нечетных чисел нет,то вывести NO . паскаль!

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

Программа на языке Pascal:

program LastOddNumber;
var
n, number, oddNumber, position: integer;
found: boolean;
begin
found := false;
position := 0;
writeln('Введите количество чисел: ');
readln(n);
writeln('Введите ', n, ' целых чисел:');
for position := 1 to n do
begin
readln(number);
if (number mod 2 <> 0) then
begin
oddNumber := number;
found := true;
end;
end;
if found then
writeln('Последнее нечетное число: ', oddNumber, ', его порядковый номер: ', position)
else
writeln('NO');
end.

Эта программа сначала запрашивает у пользователя количество чисел, затем считывает n целых чисел и ищет среди них последнее нечетное число. Если такое число найдено, программа выводит его и его порядковый номер. Если нечетных чисел нет, программа выводит "NO".