Введите с клавиатуры n целых чисел . Найти среди этих чисел последнее нечетное число и его порядковый номер . Если нечетных чисел нет,то вывести NO . паскаль!
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад