В одномерном массиве A(10) найти наибольший элемент из отрицательных напишите пожалуйста

Question

В одномерном массиве A(10) найти наибольший элемент из отрицательных напишите пожалуйста

Answer 1

Begin
var a:=ArrRandom(10,-10,10).Println;
writeln(a.Where(x->x<0).Max);<br>end.