const N = 10;

var i: integer;
var min: real;
var a: array[1..N] of real;
begin
  min := -1;
  for i := 1 to N do begin
    a[i] := random * 10 - random(5);
    write(a[i]:10:2);
    if(a[i] > 0) and (min = -1) then min := a[i];
  end;
  
  for i := 1 to N do 
    if(a[i] < min) and (a[i] > 0) then min := a[i];
    
  writeln;
  if(min = -1) then writeln(0)
  else writeln('Минимальное положительное число: ', min:0:2);
end.