|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.11.2011, 14:49 | #11 |
Пользователь
Регистрация: 11.12.2009
Сообщений: 97
|
Program massive;
Var r,buffer,j,imax,i,n,k,max,b:integer ; l:boolean; A,az : array [1..500] of integer; begin cls; writeLn('Ââåäèòå ðàçìåðíîñòü ìàññèâà ='); readLn(n); for I:=1 to n do begin Write('A[',I:2,']='); Readln(A[I]) End; For k:=1 to n do if a[k]>max then begin max:=a[k]; i:=k; end; writeln('Ìàêñèìàëüíûé ýëåìåíò ìàññèâà A[',i,']=',max); for i:=i+1 to n do az[I]:=a[I]; for i:=1 to n do for j:=i to n do Begin If az[i]>az[j] Then Begin Buffer:=az[j]; aZ[j]:=az[i]; aZ[i]:=Buffer; End; End; WriteLn ('Óïîðÿäî÷åí ïî âîçðàñòàíèþ:'); for I:=1 to n Do Begin Write (az[I]:4,' '); end; end. выводит какие то лишние нули посреди отсортированного массива. не могу от них избавится вот, как теперь вывести половину( старую, до максимума которая) + отсортированную после максимума? Последний раз редактировалось ayPinki; 27.11.2011 в 15:19. |
27.11.2011, 15:50 | #12 | ||
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
Код:
Цитата:
Цитата:
Последний раз редактировалось IT-man; 27.11.2011 в 15:52. |
||
27.11.2011, 16:18 | #13 |
Пользователь
Регистрация: 11.12.2009
Сообщений: 97
|
аа, спс It-man, плюсую в кармочку
буду разбираться>__< извините, остался последний вопрос... правельно ли я понял " вывести на печать" это послать на принтер, или просто всмысле вывести на экран? Последний раз редактировалось ayPinki; 27.11.2011 в 16:22. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как в си++ вывести массив в виде таблицы? | Великолепная | Помощь студентам | 2 | 17.12.2010 00:45 |
как вывести БД потключённую к Delphi на печать | sid1868 | Помощь студентам | 1 | 02.11.2010 12:37 |
как присвоить все три значения вектору В и вывести его как массив столбец при вызове функции | Tomoa | Microsoft Office Excel | 8 | 08.03.2010 20:42 |
Как вывести на печать документ Word | prizzrak | Microsoft Office Excel | 10 | 01.10.2009 20:36 |
Как вывести таблицу StringGrid на печать? | graphoman | Компоненты Delphi | 1 | 07.01.2008 22:19 |