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

Ответы 1

  • 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.
    • Автор:

      pepearias
    • 1 год назад
    • 6
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years