Найти максимум и минимум в одномерном массиве - PascalABC.NET

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

найти і записать вместо х1 самый большой элемент, а вместо х2 – самый маленький элемент массиву (х1, х2, ..., х100).

Решение задачи: «Найти максимум и минимум в одномерном массиве»

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

uses arrays;
 
const 
  size = 100;
var 
  x : array of integer;
begin
  x := CreateRandomIntegerArray(size, 1, 99);
  writeln('До'); x.Writeln(#9);
  x[0] := x.Max(); x[1] := x.Min();
  writeln('После'); x.Writeln(#9);
end.

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

Объявляется константа size равная 100.
Объявляется переменная x типа массив целых чисел с размером size.
Используется функция CreateRandomIntegerArray для заполнения массива x случайными целыми числами от 1 до 99.
Выводится сообщение До и массив x выводится в консоль с помощью метода Writeln.
Используется метод Max для нахождения максимального элемента в массиве x.
Используется метод Min для нахождения минимального элемента в массиве x.
Выводится сообщение После и массив x выводится в консоль с помощью метода Writeln.