Question

дана непустая последовательность различных натуральных чисел , за которой следует 0. Определить порядковый номер наименьшего из них.

Answer 1

Pascal

 var   
min,imin,a,i : integer;   
 begin
  read (a); 
 i :=1;
  min := a;
  imin := i;
 
while a <> 0 do 
  begin 
  if a < min then  
   begin   
  min := a; 
   imin := i; 
  end; 
  i := i +1; 
 read (a);    
  end;  
  writeln ('min = ',min,' num = ',imin); 
 end.