случайными числами из промежутка от 10 до 50.
program z_1;
Var i,
min: integer; a: array[1...15] of integer;
Begin
randomize;
for i:=1 to 15 do a[i]:=random(40)+10;
for i:=1 to 15 do write (a[i],' ');
min := a[1];
for i := 2 to 15 do
if a[i] < min then
min := a[i];
writeln(min)
End.