{ Поиск минимального элемента в массиве }
var a: array[1..10] of integer;
min: integer;
i: integer;
begin
writeln('Введите 10 элементов массива:');
min := MaxInt;
for i := 1 to 10 do begin
readln(a[i]);
if min > a[i] then min := a[i];
end;
writeln('Минимальный элемент массива = ', min);
end.
