Найти наибольшее и наименьшее значение массива - Pascal ABC

Формулировка задачи:

1)Написать программу, которая выводит рандомные значения в массив, выводит массив и выводит наибольший и наименьший элемент в массиве. Максимальный и минимальный массив находят функции max(a[i]) u min(a[i]) соответственно.

Решение задачи: «Найти наибольшее и наименьшее значение массива»

Листинг программы

type mas = array[1..100] of integer;
 
function Max(a: mas; n: integer): integer;
var i, m: integer;
begin
  m := a[1];
  for i := 2 to n do
    if a[i] > m then m := a[i];
  Max := m;
end;
 
function Min(a: mas; n: integer): integer;
var i, m: integer;
begin
  m := a[1];
  for i := 2 to n do
    if a[i] < m then m := a[i];
  Min := m;
end;
 
var a: mas;
    i, n: integer;
begin
  randomize;
  write('N = ');
  read(n);
  for i := 1 to n do begin
    a[i] := random(31) - 15;
    write(a[i], ' ');
  end;
  writeln;
  writeln('Max = ', Max(a, n), '; Min = ', Min(a, n));
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Pascal ABC.

Объявляется тип массива mas - это массив, состоящий из 100 целых чисел.
Затем объявляются две функции:
- Функция Max принимает массив a и его размер n в качестве параметров. Она ищет максимальное значение в массиве и сохраняет его в переменной m. Затем она проходит по всем элементам массива, начиная со второго, и если текущий элемент больше значения m, то обновляет значение m. В конце функция возвращает найденное максимальное значение.
- Функция Min работает аналогично функции Max, но ищет минимальное значение в массиве.
Затем объявляются переменные a, i и n.
В цикле for создаются n случайных чисел и записываются в массив a. Каждое число выводится на экран.
После завершения цикла выводится на экран строка, разделяющая значения массива.
Затем вызываются функции Max и Min и выводятся на экран результаты их работы. Таким образом, данный код генерирует случайный массив из n целых чисел, а затем находит и выводит на экран его максимальное и минимальное значение.