Введите с клавиатуры n целых чисел . Найти среди этих чисел последнее нечетное число и...

Question

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

Answer 1

Program n1;
var n,i,a,t,k: integer;
begin
readln(n);
t:=0;
for i:=1 to n do begin
readln(a);
if abs(a) mod 2 <>0 then begin
t:=a;
k:=i;
end;
end;
if t =0 then write('NO') else write('число ',t,'; порядковый номер: ',k);
end.