Pascal!! Ввести массив А[1..10]. Отсортировать по убыванию элементы массива А любым...

Question

Pascal!!
Ввести массив А[1..10]. Отсортировать по убыванию элементы массива А любым методом. Вывести на экран в два столбца, стоящих рядом, исходный и отсортированный массивы, элементы вывести через точку с запятой.

Answer 1

Var b,a: array[1..10] of integer; I,j: integer; Begin For i:=1 to 10 do read(a[i]); B:=a; For j:=9 downto 1 do For i:=1 to j do If (b[i]

Comments

А можно программу полностью?

---

Var a,b: array[1..10] of integer;
I,j: integer;
Begin
For i:=1 to 10 do read(a[i]);
B:=a;
For j:=9 downto 1 do
For i:=1 to j do
If (b[i] B[i]:=b[i]+b[i+1]; b[i+1]:=b[i]-b[i+1]; b[i]:=b[i]-b[i+1];
End;
For i:=1 to 10 do
Writeln(a[i],'; ',b[i]);
End.

---

Тогда почему то неполностью вставилось

---

Спасибо)