Question

Дан массив целых чисел, найти номер первого нечётного элемента массива(массив просматривается с конца, используя цикл for...down to), если нечётных элементов нет, то должно быть напечатано соответствующее сообщение

Answer 1

Var  a: array[1..100] of integer; 
i, k,n: integer;
begin 
writeln('Введите n:'); 
readln(n); 
writeln('Массив:'); 
for i := n downto 1 do 
begin   
a[i] := random(100);   
write(a[i]:4); 
end; 
writeln;k:=0; 
for i := 1 to n do   
if a[i] mod 2 <> 0 then   
begin   
writeln('Номер первого нечетного = ', i);   
k:=1;     
break;   
end; 
if k=0 then
writeln('В массиве нет нечетных элементов'); 
readln;
end.