{* Задача131 *}

REM basic

' Дан массив B(N). Удалить из него минимальный элемент и сдвинуть все оставшиеся елементы на одну позицию влево.


 CLS           
 INPUT "Vvedite n :", n
Dim B(n)       
 For i = 1 To n      
   PRINT "Vvedite element N"; i; ": ";
   INPUT "", B(i)
 Next
  min = B(1): k = 1   
 For i = 1 To n       
   If B(i) < min Then min = B(i): k = i
 Next
 For i = k To n - 1   
   B(i) = B(i + 1)
 Next
 For i = 1 To n - 1  
   PRINT B(i);
 Next
End