Номер §8 ПМ 7

В примере требуется найти наибольшее значение среди десяти элементов. Цикл for подходит, потому что число просматриваемых элементов заранее известно. Первому элементу присваиваем роль текущего максимума. Затем сравниваем с ним каждый элемент со второго по десятый; если новый элемент больше, заменяем максимум.

program MaximumFor;
const n = ;
var a: array[..n] of integer;
    i, max: integer;
begin
  for i :=  to n do
    read(a[i]);
  max := a[];
  for i :=  to n do
    if a[i] > max then max := a[i];
  writeln('Max=', max)
end.

Первая строка for заполняет все десять ячеек массива. После max:=a[] ни один элемент не пропущен: первый уже учтён, а второй цикл просматривает индексы –. После каждого сравнения max равен наибольшему из уже просмотренных значений; значит, после последнего сравнения он равен максимуму всего массива. Например, для , , , , , , , , , значения максимума последовательно меняются с на , затем на и .