сортировка, правильно или нет? Опции

[maksimla]

задача массив упорядочить не уменьшительном направлении простой сортировки напишите алгоритм
закончите программу сортировки .
извините за перевод задачи. так как посмотрел выходит все правильно кажется но зачем еще дано indeksas ?

program rikevimas;
const n = 20;
type intervalas = 1..n;
     masyvas = array [intervalas] of intervalas;
     var a:masyvas;
         maziausias, indeksas, ilgis, i, j:intervalas;
begin
 randomize;
 WriteLn('введите длину массива не больше 20:');
  readln(ilgis);
  writeln('неупорядоченный массив:');
  for i := 1 to ilgis do
    begin
    a[i] := 1 + random(20);
    writeln(a[i]:3);
    end;
    writeln;
    {  начало}
     for i:= 1 to ilgis - 1 do
      for j:= i+1 to ilgis do
       if a[i]> a[j] then
        begin
         maziausias:=a[i];
         a[i]:=a[j];
         a[j]:=maziausias;
       end;
   {конец }
    writeln('упорядочнный массив');
    for i := 1 to ilgis do writeln(a[i]:3);
  Readln;
end.

Сообщение отредактировано: maksimla - 5.10.2008 11:25