Помогите решить на PASCAL ABC!Только он!
В Массиве A(n) найти минимальный элемент среди нечетных отрицательных.

Я не проходил такой

Странно

Спасибо вам обоим!

Написано в первой строке программы, что за язык и какой версии.

Для "спасибо" тут есть кнопочка

Если у Вас нет версии 3.0, Вы можете запустить этот текст прямо в браузере, перейдя на официальный сайт разработчика http://pascalabc.net/WDE/

Хорошо!Спасибо!

// PascalABC.NET 3.0, сборка 1128begin  var n:=ReadInteger('n=');  var a:=ArrRandom(n,-50,50).Println(',');  Writeln('Минимальное отрицательное нечетное равно ',    a.Where(x->(x<0) and Odd(x)).Min)end.Тестовое решение:n= 15-44,-27,40,6,-43,-19,-37,-8,-31,0,16,41,34,-26,17Минимальное отрицательное нечетное равно -43

var a:array[1..1000] of integer; i,min,n:integer; begin writeln('Введите количество элементов массива'); readln(n); for i:=1 to n do read(a[i]); if (a[i]<0) and (a[i] mod 2<>0) then min:=a[i]; for i:=1 to n do if (a[i]<0) and (a[i] mod 2<>0) and (a[i]<min) then min:=a[i]; if min=0 then writeln('Нечетных и отрицательных элементов в массиве нету') else writeln('Минимальный, нечетный, отрицательный элемент массива - ', min); end.