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

PROGRAM PRG2_3;

VAR N, X, MAX, I: INTEGER;

BEGIN

REPEAT

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

READLN (N);

UTIL N>0;

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

READLN (X);

MAX := X;

FOR I := 2 TO N DO

BEGIN

WRITE(‘BBEAMTE X = ‘);

READLN (X);

IF (X>MAX) THEN

MAX := X;

END;

WRITELN(‘HAИБОЛЬШЕЕ ИЗ ЧИСЕЛ MAX = ‘, MAX);

END.

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

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

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

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

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

Переменные:

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

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

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

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