Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 06.11.2012
Сообщений: 31
1

Дан действительный массив А(п). Упорядочить массив по убыванию, по возрастанию

08.11.2012, 12:20. Показов 1973. Ответов 1
Метки нет (Все метки)

Дан действительный массив А(п). Упорядочить массив по убыванию, по возрастанию
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2012, 12:20
Ответы с готовыми решениями:

Дан массив из n элементов. Первые 4 упорядочить по возрастанию, последние 4 по убыванию
Дан массив из n элементов. Первые 4 упорядочить по возрастанию, последние 4 по убыванию

Массив: упорядочить массив по желанию пользователя по возрастанию или убыванию
Одномерный массив, заполненый целыми случайными числами упорядочить по желанию пользователя по...

Дан целый массив из 5 строк и 3 столбцов.Упорядочить массив по возрастанию
Дан целый массив из 5 строк и 3 столбцов.Упорядочить массив по возрастанию элементов первого...

Дан одномерный массив целых чисел, содержащий n элементов. Упорядочить массив по возрастанию
Дан одномерный массив целых чисел, содержащий n элементов (n вводится с клавиатуры, массив...

1
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,121
Записей в блоге: 1
08.11.2012, 14:01 2
Лучший ответ Сообщение было отмечено drv1995 как решение

Решение

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
Var A:array[1..100] of real;
    i,j,n:byte;
    t:real;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный');
    For i:=1 to n do
    Begin
      A[i]:=random*10;
      write(A[i]:5:2);
    End;
    writeln;
    For i:=n downto 2 do
     For j:=2 to i do 
      if A[j]>A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    writeln('По убыванию');
    For i:=1 to n do
     write(A[i]:5:2);
    writeln;
    For i:=n downto 2 do
     For j:=2 to i do 
      if A[j]<A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    writeln('По возрастанию');
    For i:=1 to n do
     write(A[i]:5:2);
    readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2012, 14:01

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Дан одномерный массив а1,а2,...,аn.Упорядочить данный массив по возрастанию,используя алгоритм сортировки обменами 2.
Помогите пожалуйста!!!Дан одномерный массив а1,а2,...,аn.Упорядочить данный массив по...

Упорядочить массив по убыванию и по возрастанию
Дан действительный массив (An). Упорядочить массив по убыванию; по возрастанию.

Упорядочить массив по возрастанию и убыванию
Упорядочить массив по возрастанию и убыванию

Упорядочить двухмерный массив по возрастанию и убыванию
Помогите написать программу по упорядочивания двухмерным массивом возрастание и убывание


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

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

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