Задание 5 Параграф 8 ГДЗ Босова 11 класс (Информатика)

Задача

Реализуйте этот алгоритм на языке программирования и выполните программу для массива из задания 6.
program Z_8_5;
var
a: array [1..7] of integer;
max, min, i: integer;
begin
for i := 1 to 7 do
read(a[i]);
max := a[1]; min := a[1];
for i := 2 to 7 do
if a[i] < min then min := a[i] else if a[i] > max then max := a[i];
Writeln(‘min=’, min, ‘ max=’, max)
end.
Программа: Z_8_5.pas (ссылка ниже)

Подробный ответ

Алгоритм сначала считает первый элемент массива и принимает его за текущие значения $$min$$ и $$max$$. Затем для каждого следующего элемента сравнивает его сначала с $$min$$, а если он не меньше минимума, то с $$max$$. Так находятся и минимальный, и максимальный элементы массива за один проход.

program Z_8_5;
var
  a: array [1..7] of integer;
  max, min, i: integer;
begin
  for i := 1 to 7 do
    read(a[i]);
  max := a[1];
  min := a[1];
  for i := 2 to 7 do
    if a[i] < min then min := a[i]
    else if a[i] > max then max := a[i];
  Writeln(‘min=’, min, ‘ max=’, max)
end.

Для массива из задания 6 программа выведет найденные значения $$min$$ и $$max$$ после обработки всех 7 элементов.