Нужно определить минимальный элемент массива E(n)

Помогите пожалуйста в написании программы: нужно определить минимальный элемент массива E(n) и его порядковый номер, найденный минимальный элемент поменять местами с пер- вым элементом массива.
2 ответа

CLS
INPUT n
DIM e(n)
FOR i = 1 TO n
e(i) = INT(RND * 100)
NEXT i
min = e(1)
FOR i = 1 TO n
PRINT e(i)
IF e(i) < min THEN min = e(i): kord = i
NEXT i
PRINT
SWAP e(kord), e(1)
FOR i = 1 TO n
PRINT e(i)
NEXT i


Спасибо большое