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.

Answer 2

Конечно, вот Pascal-подобный псевдокод для нахождения последнего нечетного числа и его порядкового номера среди введенных целых чисел:

program FindLastOddNumber;

var
  n, number, lastOdd, position, i: integer;
  
begin
  lastOdd := -1; // Изначально устанавливаем последнее нечетное число на -1
  position := -1; // Изначально порядковый номер на -1
  
  write('Введите количество чисел: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Введите число #', i, ': ');
    readln(number);
    
    if (number mod 2 <> 0) then
    begin
      lastOdd := number;
      position := i;
    end;
  end;
  
  if lastOdd <> -1 then
    writeln('Последнее нечетное число: ', lastOdd, ', порядковый номер: ', position)
  else
    writeln('NO');
end.

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