Отсортировать последовательность 25 1 13 42 8 6 14
10-11 класс
|
методом сортировки подсчетом.
const
n = 7;
type
Vector = array[1..n] of integer;
procedure SortByCount(a: Vector; kol: integer; var b: Vector);
{Сортировка подсчетом}
var
i, j: integer;
c: array[1..50] of integer;
begin
for i := 1 to 50 do C[i] := 0;
for j := 1 to kol do
c[A[j]] := c[A[j]] + 1;
for i := 2 to 50 do
c[i] := c[i] + c[i - 1];
for j := kol downto 1 do
begin
b[c[a[j]]] := a[j];
c[a[j]] := c[a[j]] - 1
end
end;
var
a: Vector := (25, 1, 13, 42, 8, 6, 14);
b: Vector;
i: integer;
begin
writeln('Исходный массив');
for i := 1 to n do write(a[i]:4);
writeln;
SortByCount(a, n, b);
writeln('Отсортированный массив');
for i := 1 to n do write(b[i]:4);
end.
Тестовое решение:
Исходный массив
25 1 13 42 8 6 14
Отсортированный массив
1 6 8 13 14 25 42
Другие вопросы из категории
else P:= P(n div 10) * n mod 10;
end;
1) 2; 2) 3; 3) 1; 4) 10;
Читайте также
слагаемых сумма которых равна 324
столбец перевода чисел в десятичный код.(числа мы уже нашли).
1)101 101 (45)2)1000 1000(136)
3)1001 1000(152)
4)1011 110(94)
5)1100 110(102)
6)1100 111(103)
7)1011 111(95)
8)1011 10(46)
9)1001 10(38
10)1001 11(39)
11)1010 11(43)
12)1010 100(84)
13)111 100(60)
14)111 10(30)
15)101 10(22)
16)101 11(23)
17)110 11(27)
18)110 1001(105)
19)111 1001(121)
20)111 1000(120)
21)10 1000(40)
22)10 1001(41)
23)11 1001(57)
24)11 110(30)
25)100 101 (37)
завтра сдаем тетради, а я не могу решить! (
массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58
говорили про какой-то метод пузырька. хелп ми Т_т
p.s. паскаль abc
ребят ,если честно - срочно...
Числа Фибоначчи : последовательность, каждый следующий элемент которой равен сумме 2-х предыдущих., причем известно, что первый член последовательности f0=0, в второй f1 =1.