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

disel

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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