Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.
VAR N, X, SUM, I : INTEGER;
BEGIN
REPEAT
WRITE(‘BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ‘);
READLN (N);
UNTIL N>0;
SUM := 0;
FOR I := 1 TO N DO
BEGIN
WRITE(‘BBEДИTE X = ‘);
READLN (X);
IF X<0 THEN SUM := SUM+X
END;
ELSE
WRITELN(‘ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ НЕТ’)
END
WRITELN(‘CУMMA ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ SUM = ‘, SUM);
END.
Для решения задачи:
— формируем тело программы и описываем переменные;
— вводим длину последовательности N и устанавливаем начальное значение SUM;
— последовательно считываем числа, и если число отрицательное, то прибавляем его к сумме SUM;
— в зависимости от значения SUM выводим результат.
Переменные:
N — количество чисел;
I — переменная цикла;
X — очередное число;
SUM — сумма отрицательных чисел.