const   max=25;//количество спортсменов
        r1=30;//минимальное время для random
        r2=60;//максимальное время для random
        
var     M:array[1..max] of real;//результаты спортсменов

// начальное заполнение массива
procedure randomArray();
var i:byte;
begin
  writeln('Начальный массив ', max, ' элементов');
  randomize();
  
  for i:=1 to max do begin
    M[i]:=random() + random(r1,r2);
    write(M[i]:5:3,'   ');
  end;
  
  writeln('');
  writeln('');
end;

// поиск и возврат минимума
function minArray():real;
var     i:byte;
        r:real;
begin
  r:=M[1];
  for i:=2 to max do
    if (M[i]<r) then
      r:=M[i];
      
  minArray:=r;
end;

begin
  randomArray();

  write('Результат спортсмена- победителя гонки: '); 
  writeln( minArray():6:3 );
end.