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]<a[j-1] then    begin     buf:=a[j];     a[j]:=a[j-1];     a[j-1]:=buf;     end;   for i:=1 to max do write(a[i]);    writeln;  write('the second sort : ');   for i:=max downto 1 do write(a[i],'  '); END.
С форума программистов , сортировка повсюду

Answer 2

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

Answer 3

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

Answer 4

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