ПаскальВводится последовательность из N целых чисел. Найти наибольшее из всех отрицательных чисел (без массива).
Паскаль
Вводится
последовательность из 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.
Не нашли ответ?
Похожие вопросы