На обработку поступает последовательность из четырёх целых чисел. Нужно написать программу, которая выводит на экран сумму всех отрицательных чисел последовательности и максимальное число в последовательности. Известно, что вводимые числа по абсолютной величине не превышают 1000.
Горе-программист написал программу неправильно:
1| var N, x, i, mx, S: integer;
2| begin
3| mx:=0;
4| S:=0;
5| for i:=1 to 4 do begin
6| readln\(x\);
7| if x<0 then
8| s:=x;
9| if x>mx then
10| mx:=x;
11| end;
12| writeln \(S, mx\);
13| end.