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

Рис. 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 целых чисел. Найти наибольшее из всех отрицательных чисел.