Решите задачу в программе PASCALABC.NET

привет, программа на фото

Код в текстовом файле скрин кода и скрин работы в картинках.

Замечание:

Если не принципиально как сортировать то можно полностью убрать часть кода

        // сортировка через циклы

           int temp;

           for (int i = 0; i < nums.Length - 1; i++)

           {

               for (int j = i + 1; j < nums.Length; j++)

               {

                   if (nums[i] > nums[j])

                   {

                       temp = nums[i];

                       nums[i] = nums[j];

                       nums[j] = temp;

                   }

               }

           }

           // конец сортировки

и раскомментировать строку

Array.Sort(nums);

результат работы будет тот же, но кода меньше

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.