циклы Опции

[Sir-j]

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

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

Код

uses crt;
var n,n_pred,i:integer;
begin
clrscr;
write('N=');
readln(n);
i:=1;
readln(x_pred);
while (i <= n) do begin
readln(x);

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

[klem4]

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

[Sir-j]

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

[klem4]

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

[volvo]

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