Дан массив а[-1;0;2;4;-2].Отсортировать по возрастанию(** ПАСКАЛЕ)в виде ПРОГРАММЫ

Question

Дан массив а[-1;0;2;4;-2].Отсортировать по возрастанию(на ПАСКАЛЕ)в виде ПРОГРАММЫ

Answer 1

uses crt; var i,j,max:byte; a: array [1..100] of integer; buf:integer; BEGIN repeat write(' input number of elements '); readln(max); until max in [1..100];     writeln('input your demention');   for i:=1 to max do  begin   write('input a[', i, '] = ');    readln(a[i]);   end;    buf:=0;    write('the first sort: ');   for i:=max downto 1 do  for j:=2 to i do   if a[j].
С форума программистов , сортировка повсюду

Comments

Зачем вы вводим max?

---

Сортируя по возрастанию идет переребор числе от самого маленького к самому большому.завершение максимумом, идет сравнение самого большого с любым другим

---

Спасибо вам большое