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

ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ НЕТ

Рис. 3.1. Результат работа PRG3_1

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

PROGRAM PRG3_2;

Var n, X, к, I: integer;

BEGIN

REPEAT

WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UNTIL N>0;

К := 0;

FOR I := 1 TO N DO

BEGIN

WRITE('BBEДИTE X = ');

READLN (X);

IFX = 0 THEN K:=K+1

END;

IF К = 0 THEN WRITELN ('НУЛЕЙ НЕТ')

ELSE

WRITELN('КОЛИЧECTBO НУЛЕЙ РАВНО К = ', К);

END.

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

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

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

- последовательно считываем числа, и если число равно ну­лю, то увеличиваем значение счетчика К;

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

Переменные:

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

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

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

К - количество нулей.

Задача 3.3 Вводится последовательность из N целых чисел. Найти наибольшее число.

PROGRAM PRG3_3;

Var n, X, max, I: integer;

BEGIN

REPEAT

WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UTIL N>0;

WRITE('ВВЕДИТЕ X = ');

READLN (X);

MAX := X;

FOR I := 2 TO N DO

BEGIN

WRITE('ВВЕДИТЕ X = ');

READLN (X);

IF (X>MAX) THEN MAX := X;

END;

WRITELN('НАИБОЛЬШЕЕ ИЗ ЧИСЕЛ MAX = ', MAX);

END.

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

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

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

- последовательно считываем числа, и если очередное число X больше МАХ, то переприсваиваем значение МАХ := X;

- выводим результат.

Переменные:

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

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

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

МАХ - наибольшее число.

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

ВВЕДИТЕ Х = 3

ВВЕДИТЕ Х = 1

ВВЕДИТЕ Х = 9

ВВЕДИТЕ Х = 25

ВВЕДИТЕ Х = – 48

НАИБОЛЬШЕЕ ИЗ ЧИСЕЛ МАХ = 25

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

ВВЕДИТЕ Х = 0

ВВЕДИТЕ Х = 0

ВВЕДИТЕ Х = 0

НАИБОЛЬШЕЕ ИЗ ЧИСЕЛ МАХ = 0

Рис. 3.2. Результат работа PRG3_3

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

PROGRAM PRG3_4;