задача

[Влад735]

Дан массив действительных чисел а1,…, аn. Найти максимальный элемент среди отрицательных. помогите решить.

[VIK_aka_TOR]

помочь и сделать за вас это разные вещи...

for i:=1 to n do
  if (a[i] < 0 ) then
   begin 
     max := a[i];
     break;
   end;
for i:=1 to n do
 if ((a[i] < 0) and (max < a[i])) then
   max := a[i];

writeln(max);