Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ЛЕРЧИК
0 / 0 / 0
Регистрация: 24.05.2009
Сообщений: 32
1

Отсортировать массив по возрастинию

24.05.2009, 12:19. Просмотров 958. Ответов 2
Метки нет (Все метки)

пож, помогите с задачей,
ДАН ОДНОМЕРНЫЙ МАССИВ, n-ЛЮБОЕ ЧИСЛО, ПОСТАВИТЬ ВСЕ ЭЛЕМЕНТЫ МАССИВА ПО ВОЗРАСТАНИЮ.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2009, 12:19
Ответы с готовыми решениями:

Отсортировать массивы, объединить и результирующий массив отсортировать
Помогите пожалуйста, нужно написать в паскале программу: Даны массив А(16),...

Вычислить среднее арифметическое элементов, дописать в массив и отсортировать массив по возростанию
5)Вычислить среднее арифметическое элементов, дописать в массив и отсортировать...

Массив символов. В процедуре отсортировать массив по алфавиту в обратном порядке
Ввести данные (тип данных указан в вариантах) с клавиатуры в виде «Х=», где i –...

Сформировать массив по формуле Yk=K*cos (Ak). Отсортировать массив по возрастанию
Дан массив размера N. Сформировать массив Yn, каждый элемент которого...

отсортировать массив
Отсортировать элементы массива, стоящие на нечётных местах по возрастанию, вот...

2
c00le®
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
24.05.2009, 12:41 2
Лучший ответ Сообщение было отмечено ЛЕРЧИК как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program mass;
uses crt;                      
var A:Array[1..100] of integer;       
    i, s, n: integer;                 
    flag: boolean;                  
 
Procedure SMass; {процедура сортировки}
 begin                              
 flag:= true;                       
 for i:= 1 to N - 1 do              
 if A[i] > A[i+1] then begin        
                       s:= A[i];        
                       A[i]:= A[i+1];
                       A[i+1]:= s;
                       flag:= false;    
                       end;             
 if flag = false then SMass;             
 end;
 
Begin
 clrscr;                    
 Randomize;
 write('Vvedite N: = ');
 readln(n);
 for i:= 1 to N do begin   
 A[i]:=Random(100);       
 Write(A[i], ' ');         
 end;
 
 SMass;                   
 Writeln;
 Writeln;
 for i:= 1 to N do        
 Write(A[i], ' ');        
 
readln;
End.
0
LLI_II
6 / 6 / 3
Регистрация: 21.05.2009
Сообщений: 17
24.05.2009, 12:43 3

program one;
uses crt;
var a:array[1..100] of integer;
x,n:integer; i,j:byte;
begin clrscr;
writeln('4islo elementov ');
readln(n);
x:=0;
randomize;
for i:=1 to n do
a[i]:=random(10);
for i:=1 to n do
write(a[i]:3); writeln;
for i:=2 to n do
for j:=n downto i do
if a[j-1]>=a[j] then begin
x:=a[j-1]; a[j-1]:=a[j]; a[j]:=x end;
for i:=1 to n do
write(a[i]:3);
readkey end.

хех. а у меня так
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2009, 12:43

Отсортировать массив
Дан линейный массив из 10 чисел. Отсортировать массив по закону: первый...

Отсортировать массив
Упорядочить по возрастанию массив,содержащий 7 вещественных чисел. ВВод/вывод...

Отсортировать массив
Отсортировать массив который содержит имена и фамилии студентов и их средний...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru