Здравствуйте, TEAC! так намного проще, а ошыбка в цыкле - посмотри мою прогу, найди ошыбку в своей :)
Приложение: Ответ отправлен: 10.09.2002, 13:38 Отправитель: portos Отвечает Артём Шегеда
Доброе время суток, TEAC!
Ой! Что ЭТО! А-А-а-а... (слышен звук падения чего-то мягкого - предположительно, ешё тёплого тела, на что-то твёрдое - предположительно, пол).
Сударь (или сударыня), вот что я Вам скажу: прежде чем пытаться написать НЕЧТО, стоит представить, как это НЕЧТО будет работать. В Вашем случае всё очень просто - ведь провести сотрировку может даже трёхлетний ребёнок Вспомним детскую пирамидку: штырёк и десяток колечек - одно больше другого. Колечки разбросаны по полу. Как ребёнок проводит сортировку? 1. Ищем самое большое из разбросанных. 2. Забираем его и насаживаем на штырёк. 3. Есть ещё разбросанные колечки? если да - на пункт 1. 4. Конец. The end. Fine. В примере - поиск наибольшего. PS. Оформляй программу так, чтобы было понятно хотя бы самому(самой) себе. Отступы придуманы не от балды - а чтобы выделять функциональные
блоки.
Приложение: Ответ отправлен: 09.09.2002, 19:21 Отправитель: Артём Шегеда Отвечает nix
Доброе время суток, TEAC! Смотри дальше: uses crt; const n=10; var i,j,t:integer; mass:array[1..n] of integer; begin clrscr; for i:=1 to n do begin mass[i]:=random(9); write(mass[i],','); end; writeln; for i:=1 to n-1 do for j:=1 to n-1 do if mass[j] begin t:=mass[j]; mass[j]:=mass[j+1]; mass[j+1]:=t; end; for i:=1 to n do write(mass[i],','); readkey end.
Ответ отправлен: 12.09.2002, 15:18 Отправитель: nix
Форма отправки вопроса
Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook"
и "Microsoft Outlook Express". В программе The Bat!
подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте,
что в некоторых браузерах могут стоять запреты на открытие других
окон, а также "чрезмерное" кэширование данных,
при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet
Explorer 5.0+ или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.