Одномерный массив, элементы заканчивающиеся на 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 21:49

[volvo]

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

В FAQ-е форума лежит добрый десяток алгоритмов сортировки, выбирай любой... Но для начала надо правильно заполнить массив B. Потому что элементы, заканчивающиеся на 7, и элементы кратные 7 - это разные вещи. У тебя в массив B как раз заносятся кратные семи...

Оканчивается на 7 - это (a[ i ] mod 10) = 7