// Минимальный элемент в массиве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] writeln('Минимальный элемент в массиве = ',min); end.