uses crt; 
const Lim=100; 
var y:array[1..30] of real; 
       i,nom:byte; 
       Max:real; 
begin 
  ClrScr; 
  nom:=1; 
  max:=-Lim; 
  randomize; 
  writeln('Sformirovannyi vector:'); 
  for i:=low(y) to high(y) do 
   begin 
    y[i]:=-Lim+random(2*Lim+1)+Trunc(Random*10)/10; 
    writeln('#',i,': ',y[i]:6:2); 
    if y[i]>=max then 
     begin 
      max:=y[i]; 
      nom:=i; 
     end; 
   end; 
  writeln; 
  writeln('Max=',max:6:2,' Nom=',nom); 
  readkey; 
end.