Компактный код для сортировки массива
{Очень небольшой код для сортировки массива. Состоит из двух циклов for. Сортирует от большего к меньшему.} for i:= 1 to 5 do begin //отвечает за место старта проверки for j:= i to 5 do begin //сам цикл поверки if (x[j]) > (x[i]) then begin //если следующее число больше i,то
a:= x[j]; //
x[j]:= x[i]; //меняем местами
x[i]:= a; // end;
end;
end;
|
Пример использования:
var
x: array [1..5] of integer;
a,k,i,j: integer;
begin
writeln ('Vvedite massiv!!!');
for k:= 1 to 4 do begin //вводим массив read (x[k]); //--,--
end; //--,--
readln (x[5]); //--,--
for i:= 1 to 5 do begin //отвечает за место старта проверки
for j:= i to 5 do begin //сам цикл поверки if (x[j]) > (x[i]) then begin //если следующеее число больше i,то
a:= x[j]; //
x[j]:= x[i]; //меняем местами
x[i]:= a; // end;
end;
end;
for k:= 1 to 4 do begin //
write (x[k],' '); //
end; // выводим массив
writeln (x[5]); //
readln; //
end. |