паскаль
Вводится
последовательность из N целых чисел. Найти наибольшее из всех
отрицательных чисел (без массива).

Var
  n, i, k, max: integer;

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.