program minimum; const n = 10; var a:array [1..n] of integer; i,min: integer; begin randomize; a[1]:=10+random(90); min:=a[1]; write(a[1], ' '); for i:=2 to n do begin a[i]:=10+random(90); write(a[i], ' '); if a[i] < min then min:=a[i]; end; writeln; writeln('min: ', min); readln; end.