Вводится последовательность из N целых чисел. Найти наибольшее число.
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 — очередное число;
МАХ — наибольшее число.