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

Question

Информатика

Лапиз

8 мая, 02:55

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

+5

Ответы (1)

Знаете ответ?

Хельда · 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.