Дан массив из 20 чисел заданных случайным образом. Найти: наименьшее нечетное число и его номер. Вывести на экран исходный массив, наименьший нечетный элемент и его номер.

program znanija; var A:array[1..20] of integer;    i,k,min,n:integer; begin min:=1000000000; // прощу прощение за такое )  for i:=1 to 20 do  A[i]:=random(9); // заполняем массив  for i:=1 to high(A) do  // находим минимальное нечётное, запоминаем его номер if (A[i] < min) and (A[i] mod 2 <> 0) then begin n:=i; min:=A[i]; end;   for i:=1 to 20 do  write(A[i]:3);   // Выводит весь массив  writeln();  // просто перевод на новую строку для красоты  writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер end.