Question

На обработку поступает последовательность из четырёх целых чисел. нужно написать программу, которая выводит на экран сумму всех отрицательных чисел последовательности и максимальное число в последовательности. известно, что вводимые числа по абсолютной величине не превышают 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. последовательно выполните следующее. 1. напишите, что выведет эта программа при вводе чисел -5 2 -4 3. 2. пример такой последовательности, содержащей хотя бы одно неотрицательное число, что, несмотря на ошибки, программа печатает правильный ответ. 3. найдите в программе все ошибки (их может быть одна или несколько). для каждой ошибки выпишите строку, в которой она допущена, и эту же строку в исправленном виде.

Answer 1

1. -4 3
2. 0 0 -4 3
3. Слишком много, хотя бы то, что для i тип integer не нужен, да и if'а можно избежать)