В одномерном массиве найти разность наибольшего и наименьшего элементов.(Pascal)

Пример кода на Pascal:

```
program MaxMinDifference;

const
N = 10; // размер массива

var
arr: array[1..N] of integer;
i, max, min: integer;

begin
// заполнение массива случайными числами
for i := 1 to N do
arr[i] := random(100);

// вывод элементов массива
writeln('Массив:');
for i := 1 to N do
write(arr[i], ' ');
writeln;

// поиск максимального и минимального элементов
max := arr[1];
min := arr[1];
for i := 2 to N do
begin
if arr[i] > max then
max := arr[i];
if arr[i] < min then
min := arr[i];
end;

// вывод разности максимального и минимального элементов
writeln('Разность максимального и минимального элементов: ', max - min);

readln;
end.
```

Программа создает массив из 10 случайных чисел, выводит его элементы, находит максимальный и минимальный элементы и выводит их разность.