Регистрация
medweghonok
14.08.2020 00:42
Информатика
Есть ответ 👍

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

291
464
Посмотреть ответы 2

Ответы на вопрос:

bayarma58
bayarma58
4,6(69 оценок)
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 > then       max : = k;   end;   writeln(max); end.
koalakoalakoala
koalakoalakoala
4,8(3 оценок)
11 часов 53 минуты 38 секунд,т.к. 300сек=5 мин. 11ч.48мин.38сек+5мин.=11ч53мин38сек.

Популярно: Информатика