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

disel
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

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment