Определить минимальный элемент массива и его порядковый номер, найденный минимальный элемент поменять местами с последним элементом массива- Basic(Бейсик)

Обработать на компьютере одномерный массив E(N). Размер исходного массива N ввести с клавиатуры. Вывести на экран все результаты и исходный массив. Проверить правильность выполнения программы с помощью тестового варианта (N=4)

INPUT" vvedite kol-vo elementov ",n
DIM e(n)
RANDOMIZE TIMER
PRINT"massiv"
FOR i=1 TO n
e(i)=INT(RND*20)
PRINT e(i);
NEXT
PRINT
nmin=1
FOR i=1 TO n
IF e(i)<e(nmin) THEN nmin=i
NEXT
PRINT"minimalnyj element=";e(nmin);"ego nomer="nmin
SWAP e(n),e(nmin)
PRINT"novyj massiv"
FOR i=1 TO n
PRINT e(i);
NEXT

Leave a Comment