READLN (N);. Алгоритмы для обработки последовательностей обычно отно­сятся к одному из двух типов;

END;

Алгоритмы для обработки последовательностей обычно отно­сятся к одному из двух типов;

- поиск;

- проверка условий.

Для последовательностей характерно, что в каждый момент времени нам доступен только один элемент последовательности. Поэтому все алгоритмы строятся с учетом однократного последо­вательного просмотра.

Рассмотрим несколько программ. В каждой из них одновре­менно рассматривается только очередной член последовательно­сти, без учета всех остальных. Алгоритмы для решения таких задач называются алгоритмами с линейным поиском.

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

PROGRAM PRG3_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;

IF SUM = 0 THEN WRITELN('OTPИЦАТЕЛЬНЫХ ЧИСЕЛ НЕТ')

ELSE

WRITELN('CУMMA ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ SUM = ', SUM);

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим длину последовательности N и устанавливаем на­чальное значение SUM;

- последовательно считываем числа, и если число отрица­тельное, то прибавляем его к сумме SUM;

- в зависимости от значения SUM выводим результат.

Переменные:

N - количество чисел;

I - переменная цикла;

X - очередное число;

SUM - сумма отрицательных чисел.

 

ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = 5

ВВЕДИТЕ Х = 5

ВВЕДИТЕ X = – 1

ВВЕДИТЕ X = – 1

ВВЕДИТЕ Х = 25

ВВЕДИТЕ X = – 48

СУММА ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ SUM = – 50

ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = 3

ВВЕДИТЕ Х = 6

ВВЕДИТЕ Х = 7

ВВЕДИТЕ X = 8