Упражнение 1 (Обработка числовых последовательностей)

Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.

PROGRAM PRG2_1;

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 — сумма отрицательных чисел.

Добавить комментарий