18.12.2013, 10:22 | #4 (ссылка) |
Новичок
Регистрация: 19.05.2011
Сообщений: 33
Репутация: 1
|
CLS
DIM n AS INTEGER DIM i AS INTEGER DIM j AS INTEGER DIM tmp AS INTEGER INPUT n REDIM ar(1 TO n) FOR i = 1 TO n INPUT ar(i) NEXT i FOR i = 1 TO n - 1 FOR j = i + 1 TO n IF ar(i) < ar(j) THEN tmp = ar(i) ar(i) = ar(j) ar(j) = tmp END IF NEXT j NEXT i FOR i = 1 TO 5 WRITE ar(i) NEXT i Блок-схему, извиняйте, нарисовать не смогу. Попробуйте найти в интернете программу для автоматического составления блок-схем Последний раз редактировалось Urian; 18.12.2013 в 10:44. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
Опции темы | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите с задачей | RavilTuljakov | Программирование | 0 | 10.06.2013 08:34 |
помогите,пожалуйста с задачей((( | AlinkaMalina | Программирование | 0 | 03.05.2011 15:19 |
Помогите пож с задачей) | Ser_VRN | Программирование | 4 | 08.04.2011 17:01 |
Помогите с задачей на рекурсию! Паскаль. | Svetlanka_1 | Программирование | 0 | 20.11.2010 15:51 |
Помогите с задачей С++! | Negetn | Программирование | 1 | 05.09.2009 12:12 |