Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.