Дана последовательность чисел a1, a2, …, an. Требуется переставит числа в поряд-ке...

Question

Дана последовательность чисел a1, a2, …, an. Требуется переставит числа в поряд-ке возрастания. Для этого сравниваются два соседних числа ai и ai+1. Если ai>ai+1 то делается пере-становка. Так продолжается до тех пор, пока все элементы не станут расположены в порядке воз-растания. Составить алгоритм сортировки, подсчитывая при этом количество перестановок.
ПОМОГИТЕ СДЕЛАТЬ В ПАСКАЛЬ, ПРОШУ =*(

Comments

да, но вы думаете я что-то поняла, раз пишу?)

---

Составить программу для решения следующей задачи: Дан массив С(10). Сформируйте из него массив А, предварительно определив его длину, включая в массив А четные положительные элементы. А для этой?)))

---

думаю нет

Answer 1

const
max = 10000;
var i, j : Integer;
x,raz : LongInt;
A : array[0..max] of LongInt;   
BEGIN
// 
//Допустим уже массив заполнен
//
    
  for i := max downto 2 do        
for j := 2 to i do          
if A[j] < A[j - 1] then            
begin              
 x := A[j];              
 A[j] := A[j - 1];              
 A[j - 1] := x;
inc(raz);            
end;  
writeln('Количество перестановок = ', raz); 
END.
Не проверял, но должно вроде бы работать:)

Comments

вы мне нереально помогли, большое спасибо, что потратила большое количество вашего времени

---

СТОЙТЕ, на экране после того как пишу ё0 чисел пусто и выключается, пишит"исполнение остановлено"

---

нууу.. да))