|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2008, 18:05 | #1 |
Регистрация: 23.12.2008
Сообщений: 4
|
Массив
Помогите сделать до конца задачу.
2. Заполнить одномерный массив А(10) различными числами. Заменить отрицательные числа на нули и отсортировать полученную последовательность по возрастанию. Задачу сделал всё работает, но как отсортировать полученную последовательность по возрастанию? Вот задача: program laba6_2; const n=10; var i,j: integer; a:array [1..10] of integer; begin writeln('__________________________ ____________________________'); randomize; for i:=1 to n do begin a[i]:=random (30)-10; write(a[i]:3); end; writeln; writeln; for i:=1 to n do begin if a [i]<0 then a[i]:=a[i]*(0); end; for i:=1 to n do write (a[i]:3); readln; writeln; end. |
23.12.2008, 18:15 | #2 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 46
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Упорядочить массив в порядке возрастания и напечатать входной и исходный массив. | TheVenny | Помощь студентам | 3 | 26.11.2008 15:06 |
массив | TheVenny | Помощь студентам | 1 | 22.11.2008 01:50 |
массив | begemotikdin | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 04.06.2008 22:58 |
Массив | Кронос | Общие вопросы Delphi | 4 | 29.05.2008 21:36 |
массив {С++} | Влдислаав3911 | Помощь студентам | 0 | 28.05.2008 23:21 |