Найти максимум/минимум в массиве. Программа на языке Паскаль. PascalABC.NET

 Задача. Дан массив целых чисел из N элементов. Найти максимум.

Максимум - это самое большое число, сохраненное в массиве.

Алгоритм поиска заключается в следующем:

• за начальное значение максимума взять самое маленькое число, которое может быть сохранено в массиве;
• обращаясь к каждому элементу массива выполнять проверку: значение элемента больше, чем значение максимума, если да, что значение максимума заменить на значение элемента.

Предположим, что в массиве a из N элементов могут храниться числа из промежутка от 1 до 100. Заполним массив случайными числами (прочитать статью "Сформировать массив случайных чисел")

За начальное значение максимума возьмем число 1:

m:=1;

Осуществим обращение к каждому элементу массива оператором цикла:

for k:=1 to N do

begin

обращение к элементу a[k]

end;

Выполнять проверку и изменение максимума будем оператором:

if a[k]>m then m:=a[k];

Программа решения задачи на языке Паскаль

var a:array[1..30] of integer;

    N,k,m:integer;

begin

  print('Введите количество элементов массива N =');

  readln(N);

  println('Массив чисел');

  m:=1;

  for k:=1 to N do

  begin

    a[k]:=random(1,100);

    print(a[k]);

    if a[k]>m then m:=a[k];

  end;

  println;

  println('Максимум в массиве:',m);

end.

Результат запуска программы

Для наглядности можно выводить текущее значение максимума в цикле.

Для поиска минимума начальное значение следует взять за самое большое число в массиве (в нашем случае это число 100). А проверка условия и изменение минимума будет таким:

if a[k]<m then m:=a[k];