Код для вашего примера - поиск минимального элемента в массиве.
Код
// Минимальный элемент в массиве
const n = 10;
var
a: array [1..n] of integer;
i,min: integer;
begin
// Заполнение массива случайными числами
for i:=1 to n do
a[i] := Random(100);
// Вывод массива
write('Массив a: ');
for i:=1 to n do
write(a[i],' ');
writeln;
// Алгоритм вычисления минимального элемента
min := a[1];
for i:=2 to n do
if a[i] < min then
min := a[i];
writeln('Минимальный элемент в массиве = ',min);
end.
Для нахождения максимального надо просто поменять знак сравнения.
