Определить минимальный элемент массива М(n) и его порядковый номер, найденный минимальный элемент поменять местами с последним элементом масcива — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
INPUT "N"; n
DIM e(n)
FOR i = 1 TO n
    INPUT e(i)
NEXT
CLS
min1 = e(1)
PRINT "massiv:"
FOR i = 1 TO n
    PRINT e(i);
    IF e(i) < min1 THEN min1 = e(i): min2 = i
NEXT
PRINT
PRINT "min    :"; min1;
PRINT "ego p/n:"; min2
SWAP e(min2), e(n)
PRINT "noviy massiv:"
FOR i = 1 TO n
    PRINT e(i);
NEXT

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