Задача: найти значение минимального элемента в одномерном массиве, который заполняется случайными числами. max_min;
var M: [1..10] of ;
i, min: integer;
begin
randomize;
for i: = 1 10 do
begin
: = random (10);
write (M[i],' ');
end;
min: = M[1];
for i: = 2 to 10 do

if (min > M[i]) then : = M[i];
end;
writeln (' ');
(min)
end.