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

Ответы:

Василиса Сало

27-11-2015 04:39

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Саша Бочарова

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «ПаскальВводится последовательность из N целых чисел. Найти наибольшее из всех отрицательных чисел (без массива).» от пользователя Саша Бочарова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!