ОЧЕНЬ СРОЧНО! ОТДАЮ ВСЕ БАЛЛЫ. Ввести последовательность случайным образом N=12 из диапазона [-15;15]. Найти наименьшее нечетное число последовательности.

Ответ:

var n, i, x, min: integer;

begin

 n:=12;
//задаем количество чисел.

 min:=16;//присваиваем минимум по правилу:"Минимуму присваиваем самое большое число".

 Randomize;

for i:=0 to n-1 do
//цикл для рандома 12 чисел. Можно написать " for i:=1 to n do"

    begin

     x:=Random(31)-15;  //присваиваем перемененной "x" рандомное значение из диапазона [-15;15].

     Writeln(x);
//выводим значение "x".

      if (min > x) and (x mod 2 <> 0) then  //если минимум больше полученного "x" и "x" - нечетный, то

        min:=x;  //минимуму присваиваем значение "x".

   end;

Writeln('Наименьшее нечетное число последовательности: ',min);
//выводим ответ.

end.