Даны целое n>0 и последовтельность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти наибольшее среди отрицательных чисел.

Решаю через while:

что то я не понял что дальше:
как находить наибольшее отрицательное чисело?

Последовательно надо хранить ? (в массиве)

но мне надо решить через цикл! учитель достал меня, дает очень много задач не успеваю и что то я загрузился над ней!

readln(n);

   max := -maxint;

   i := 0;

   repeat
      inc(i);
      readln(x);
      if (x<0) and (x>max) then max := x {i}
   until i=n;

М

А использовать надо не то, что "твое любимое", а то, что лучше подходит для решения задачи. В данном случае (заранее известное число итераций) это - For volvo

М

Сдаюсь ! klem4

To: klem4
Стратегическая ошибка Ты обязан пройти по всем N числам - используй For ... Все проще гораздо:

readln(n);
max := -maxint;

for i := 1 to n do begin
  readln(x);
  if (x<0) and (x>max) then max := x
end;

М

Volvo, а может repeat - мой любимый цикл ! klem4