Обчислення максимального елементу

МАХ:=А

повідомлення “Введіть наступний А”

введення значення змінної А

Перевірка МАХ<А,

Так: МАХ:=А

Вивід результату обчислення

Повідомлення “МАХ =”, МАХ

Кінець

1. Алгоритм рішення задачі

1. Текст програми на мові Паскаль

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.

Приклад написання алгоритму циклічної структури.

Застосування циклу з попередньою умовою при організації ітераційного циклу в програмі.