Question

ввести массив чисел определить определить номер максимального отрицательного нечетного элемента массива
ПАСКАЛЬ СРОЧНО

Answer 1

var

 a: array of integer;  

 mi,i,n:integer;

begin

 readln(n);

 setlength(a,n);

 readln(a[0]);

 mi:=0;

 for i:=1 to n-1 do

   begin

     readln(a[i]);

     if (a[i]<a[mi]) and (abs(a[i]) mod 2 = 1) then

       mi:=i;

   end;

 if abs(a[mi]) mod 2 <> 1 then

   writeln('Error')

     else

       writeln('№',mi+1,'  ',a[mi]);

end.