МАХ:=А
повідомлення “Введіть наступний А”
введення значення змінної А
Перевірка МАХ<А,
Так: МАХ:=А
Вивід результату обчислення
Повідомлення “МАХ =”, МАХ
Кінець
- Алгоритм рішення задачі
- Текст програми на мові Паскаль
PROGRAM Z_12;
CONST N=10;
VAR
I,A, MAX: integer;
BEGIN
READ(A);
MAX:=A;
FOR I:=2 TO N DO
BEGIN
READ(A);
IF MAX<A THEN MAX:=A;
END;
WRITELN('MAX=’,MAX:6);
END.
Приклад написання алгоритму циклічної структури.
Застосування циклу з попередньою умовою при організації ітераційного циклу в програмі.