Заполнить массив случайными числами и отсортировать  — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
 N = 10
DIM M(N)
  
PRINT "Massiv:"
FOR I = 1 TO N
 M(I) = INT(RND * 100)
 PRINT M(I);
NEXT I
  
FOR I = 1 TO N - 1
  FOR J = I + 1 TO N
      IF (M(I) > M(J)) THEN SWAP M(I), M(J)
  NEXT J
NEXT I
  
 PRINT
 PRINT "Sort massiv:"
FOR I = 1 TO N
 PRINT M(I);
NEXT I

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

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

Leave a Comment