Одномерный массив, элементы заканчивающиеся на 7, отсортировать в другом массиве Опции

[TommyG]

Собственно, условие выше ^

 var a,b:array[1..100] of integer;
i,j:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
j:=1;
for i:=1 to n do
if a[i] mod 10=7 then
 begin
 b[j]:=a[i];
 inc(j);
 end;

как сортировку теперь b массиву сделать?

Сообщение отредактировано: TommyG - 11.12.2010 17:49