|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.06.2010, 12:51 | #1 |
Новичок
Джуниор
Регистрация: 05.06.2010
Сообщений: 13
|
беда
народ привет! кто шарит в паскале, нужна помощь, плиз. завтра курсовая а прога не идет по чему не понимаю!!! кто может помочь, спасите!!! жду ответ! вот прога, нужно чтобы элементы массива стояли в порядке возрастания а не в разноброд как у меня(((
program Max_search; uses crt; const m=10; type vector=array[1..m] of integer; var a:vector; i,j,imax,max,p,d:integer; n:real; Begin clrscr; randomize; writeln('Ñîçäàíèå ìàññèâà è åãî âûâîä'); for i:=1 to m do begin p:=random(10); a[i]:=p-1; write(a[i]:3); end; max:=a[1]; for i:=2 to m do if max<a[i] then begin max:=a[i]; imax:=i end; writeln; writeln('çíà÷åíèå ìàêñèìàëüíîãî=',max); writeln('Èíäåêñ ìàêñèìàëüíîãî=',imax); {óïîðÿäî÷åíèå ýëåìåíòîâ ìàññèâà Z} for i:=1 to m-1 do for j:=1 to m-i do if a[i]>=a[i+1] then begin d:=a[i]; a[i]:=a[i+1]; a[i+1]:=d; writeln('Óïîðÿäî÷åííûé ìàññèâ Z'); for i:=1 to m do write (a[i]:3); writeln; readln; end; end. |
05.06.2010, 13:12 | #2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
05.06.2010, 15:40 | #3 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
А может так правильнее будет, ась???? Это ж обычная линейная сортировка...
Код:
Код:
Перемешивай дело с бездельем и не сойдешь с ума...
Последний раз редактировалось Grag; 05.06.2010 в 15:48. |
05.06.2010, 15:41 | #4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
а чё у меня неверно чтоли?
にんじゃ
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
беда на форме | lamerk | Microsoft Office Access | 2 | 29.11.2009 18:28 |
Беда с установкой проги!:(( | billidean | Общие вопросы .NET | 0 | 22.09.2008 19:17 |
Беда не приходит одна! | Tayfun | Свободное общение | 6 | 30.12.2007 07:58 |