Вопрос по информатике:
Сделать (в бэйсике) сортировку чисел, массив (100), по убыванию и составить блок схему
- 30.09.2017 21:13
- Информатика
- remove_red_eye 15409
- thumb_up 68
Ответы и объяснения 1
10 DIM a(100)
15 PRINT "неотсортированный массив"
20 FOR i = 1 TO 100
30 a(i) = RND * 100
40 PRINT a(i)
50 NEXT i
60 FOR i = 1 TO 99
70 FOR j = i + 1 TO 100
80 IF a(i) > a(j) THEN GOTO 120
90 p = a(i)
100 a(i) = a(j)
110 a(j) = p
120 NEXT j
130 NEXT i
135 PRINT "отсортированный массив"
140 FOR i = 1 TO 100
150 PRINT a(i)
160 NEXT i
- 02.10.2017 03:15
- thumb_up 76
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.