Отправлено: 05.05.17 18:26. Заголовок: Задание 24 №496

На обработку поступает последовательность из четырёх целых чисел. Нужно написать программу, которая выводит на экран сумму всех отрицательных чисел последовательности и максимальное число в последовательности. Известно, что вводимые числа по абсолютной величине не превышают 1000. Программист написал программу неправильно.

var s,i,x,mx: integer;
begin
mx := 0;
s := 0;
for i := 1 to 4 do begin
read (x);
if x < 0 then
s := x;
if x > mx then
mx := x;
end;
writeln(s);
writeln(mx)
end.

В ответах исправление следующее:
Неверная инициализация. Строка с ошибкой:
mx := 0;
Верное исправление:
mx := -1000;

Вопрос: можно ли в исправлении написать "mx := -1001;" (минус одна тысяча ОДИН) вместо "mx := -1000;"

 Отправлено: 06.05.17 15:17. Заголовок: Артем пишет: можно л..

Артем пишет:

цитата:

можно ли в исправлении написать "mx := -1001;" (минус одна тысяча ОДИН) вместо "mx := -1000;"

Да. Любое число, не большее, чем -1000.