Сортировка Опции

[Solid]

С помощью алгоритма сортировки с убывающим шагом отсортируйте четные элементы массива 4 8 31 5 6 47 12.
Я сделал, но прога сортирует все значения. Как сделать так, чтобы сортировало только чётные?

Var tmp,m:Array[1..10]of LongInt;
t,i:LongInt;
 
Procedure Sort(st,t:LongINt);
Var u,Key,i:LongInt;
Begin
While st<=7 Do
 Begin
  u:=st;
  Key:=m[u];
  While (u-t>0)And(m[u-t]>Key) Do
	Begin
	 m[u]:=m[u-t];
	 Dec(u,t);
	End;
  m[u]:=Key;
  st:=st+t;
 End;
End;

Begin
For i:=1 to 7 Do
begin
write('m[',i,']=');
readln(m[i]);
end;
tmp:=m;
t:=1 Shl 10;
While t>0 Do
 Begin
  If t<=7 Then
    For i:=1 To t Do Sort(i,t);
  t:=t Shr 1;
 End;
For i:=1 To 7 Do Writeln(tmp[i],' ',m[i]);
WriteLn;
readln;
End.

Сообщение отредактировано: volvo - 2.11.2006 10:25