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

var  a: array[1..20] of integer;  i,x,x1,min,min1: integer;begin  min:=32767;  randomize;   for i:=1 to 20 do  a[i]:=random(200)-100; //Заполнение массива  writeln('Исходный массив: ');   for i:=1 to 20 do  begin   write(' ',a[i],' ');   if ((a[i]<min) and (a[i] mod 2 <>0)) then     begin     min:=a[i];     min1:=min;     x:=i;    end;  end;  writeln();  write('Позиция: ',x,', значение: ',min1);end.