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

[TommyG]

Окей ща гляну
насчет оканчивающиеся да - чисто опечатка)) все верно mod 10.

Добавлено через 1 мин.
Поиск в FAQ не нашел темы со словом "сортировка"
но все же
наверно так будет...

Добавлено через 9 мин.

 var a,b:array[1..100] of integer;
i,j,tmp,n: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;
n:=j-1;
for i:=1 to n-1 do
          for j:=i+1 to n do
              if (b[j]<b[i]) then
                begin
                   tmp:=b[i];
                   b[i]:=b[j];
                   b[j]:=tmp;
              end;
for i:=1 to n do
writeln(b[i],' ');
end.

прогон программы

 
5
7 17 27 8 10
вывод
0 0 7 17 27

как убрать ненужные нули?

Добавлено через 13 мин.
добавил перед сортировкой
n:=j;
прогон программы

 
5
7 17 27 8 10
вывод
0 7 17 27

как убрать ненужный ноль?

Добавлено через 1 мин.
ну собсно терь по логике исправил n:=j-1;

решено

Добавлено через 1 мин.
почему j-1? т.к. в цикле у нас есть inc(j) и потому появляется одна лишняя ячейка.

Добавлено через 1 мин.
Можно закрывать

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

[volvo]

Поиск в FAQ не нашел темы со словом "сортировка"

Правда?
Методы сортировок, выдается по запросу седьмой сверху. Значит, не искал...

[TommyG]

Спасибо за ответ, но уже не актуально.