обьясните метод выполнения массивов

[mishammm]

Смотрите есть массив з 5 элементами.
нужно отсортировать его по убыванию

пока сам алгоритм я дошео до такого:

program adadad;
var
a:array[1..5] of integer;
i,n: integer;
begin
Writeln('Elementi');
for i:=1 to n do
a[i]:= n-1;
End.

что дальше ? If или еще один цыкл?
обьясните плиз на примере любом!

[Ezhik Kihze]

А теперь забудьте о программировании и включите голову. Вот есть набор чисел (например, на детских кубиках):
12 1 9 0 20 23
Как вы будете его упорядочивать?

[mishammm]

по убыванию: 23,20,12,9,1, 0

[ViktorR]

mishammm

по убыванию: 23,20,12,9,1, 0

Нет. Речь не о том, что Вы получите в результате,
Ezhik Kihze

12 1 9 0 20 23
Как вы будете его упорядочивать?

а как Вы будете это делать с помощью кубиков.
Пример:
1. Берем первый кубик.
2. Просматриваем все кубики справа (начинаем со следующего) и ищем кубик с максимальным номером.
3. Меняем местами первый и последний, в данном примере, кубики. Для этого первый кубик извлекаем из ряда, на его место ставим последний.
4. Теперь берем второй кубик, см. п.1.
5. Аналогично п.2, просматривая все кубики справа (начинаем со следующего), ищем максимальный.
6. Меняем местами второй с найденным: извлекаем второй кубик, на его место помещаем, в данном примере, предпоследний, извлеченный кубик ставим на место предпоследнего.
И т.д.
Т.е.
а) при написании алгоритма потребуется описать один цикл для последовательного выбора кубиков, см. п.1 и п.4. ...
б) необходимо описать второй цикл, в котором мы будем просматривать кубики и искать максимальный, см. п.2, п.5, ...
в) необходимо, зная номера кубиков, переставлять их местами, см. п.3, п.6, ...
Для этого (для перестановки), можно использовать дополнительное место (переменную), в которую на время переносим номер кубика.
И т.д.

Посмотрите пример в книге Павловской, которая водится тут http://www.programmersforum.ru/showt...?t=8324&page=9. (стр.62)


Как-то так, ...

[mishammm]

вот немного почитав в и-нете что вышло:

program laba7_3;
 const n=5;
 var m:array[1..n] of integer;
 k,i,j:integer;
 Begin
      writeln('Vvedit massiv');
      for i:=1 to n do
      read(m[i]);
          for i:=1 to n-1 do
          for j:=i+1 to n do
              if (m[j]>m[i]) then
                begin
                   k:=m[i];
                   m[i]:=m[j];
                   m[j]:=k;
              end;
      writeln('vidsort mas');
      for i:=1 to n do
      writeln(m[i],' ');
      readln(m[i]);
end.

Но вот ошибка: когда ввожу -6,3 выбивает: Ошибка времени выполнения: Входная строка имела неверный формат. Что то с типом переменной не так??? там где array?? мне в задании дано: (3,2;-6.3;-8.3;0.0;1.2),

[ViktorR]

Да. У Вас тип элементов массива - integer, а требуется вводить вещественные числа, т.е. тип должен быть - real.
И, соответственно, переменная k (используется при перестановке элементов) должна быть типа real.


Как-то так, ...

[mishammm]

да действительно так поменял все норм спасибо