Заполнить массив из 10 элементов случайными числами 0..100 и отсортировать: первая половина по возраст., вторая по убыв.

7 3 92 32 65 5 86 81 47 89
3 7 32 65 92 89 86 81 47 5
===================
86 38 37 67 13 12 66 44 13 42
13 37 38 67 86 66 44 42 13 12
===================
89 29 26 22 37 79 12 85 22 35
22 26 29 37 89 85 79 35 22 12
===================
84 73 70 76 85 24 73 20 15 69
70 73 76 84 85 73 69 24 20 15
===================
91 41 59 44 40 92 36 47 49 33
40 41 44 59 91 92 49 47 36 33
===================
25 40 19 3 3 91 31 92 88 8
3 3 19 25 40 92 91 88 31 8
===================
39 69 82 75 71 55 4 93 88 11
39 69 71 75 82 93 88 55 11 4
===================
43 56 86 84 43 54 25 93 61 89
43 43 56 84 86 93 89 61 54 25
===================
90 86 43 82 4 15 67 100 7 59
4 43 82 86 90 100 67 59 15 7
===================
75 92 7 55 55 66 67 60 9 16
7 55 55 75 92 67 66 60 16 9
===================
86 37 98 15 35 57 65 64 61 83
15 35 37 86 98 83 65 64 61 57
===================
23 25 97 44 37 100 58 35 66 27
23 25 37 44 97 100 66 58 35 27
===================
100 75 65 96 74 24 37 48 38 94
65 74 75 96 100 94 48 38 37 24
===================
77 27 26 77 98 57 79 14 27 77
26 27 77 77 98 79 77 57 27 14
===================
20 81 74 12 16 45 52 96 40 76
12 16 20 74 81 96 76 52 45 40
===================
90 79 30 16 56 85 20 44 8 52
16 30 56 79 90 85 52 44 20 8
===================
59 74 96 76 67 93 41 63 66 44
59 67 74 76 96 93 66 63 44 41
===================
19 27 3 73 82 34 10 80 97 10
3 19 27 73 82 97 80 34 10 10
===================
42 1 11 66 15 21 65 88 25 89
1 11 15 42 66 89 88 65 25 21
===================
39 24 59 79 64 22 75 27 62 27
24 39 59 64 79 75 62 27 27 22
===================
28 4 45 63 53 43 10 43 10 6
4 28 45 53 63 43 43 10 10 6
===================
81 2 49 69 43 67 21 67 28 98
2 43 49 69 81 98 67 67 28 21
===================
60 36 86 46 8 90 59 52 40 67
8 36 46 60 86 90 67 59 52 40
===================
40 73 16 53 61 20 59 92 69 52
16 40 53 61 73 92 69 59 52 20
===================
46 46 78 31 91 49 84 93 92 15
31 46 46 78 91 93 92 84 49 15
===================
43 78 77 63 78 54 31 74 44 85
43 63 77 78 78 85 74 54 44 31
===================
76 93 57 67 100 3 5 14 11 41
57 67 76 93 100 41 14 11 5 3
===================
26 5 95 39 85 58 72 24 11 64
5 26 39 85 95 72 64 58 24 11
===================
77 14 46 59 64 10 6 64 23 37
14 46 59 64 77 64 37 23 10 6
===================
80 6 27 64 70 45 6 62 93 47
6 27 64 70 80 93 62 47 45 6
===================
97 20 55 75 7 31 21 12 25 20
7 20 55 75 97 31 25 21 20 12
===================
51 3 28 7 25 53 90 8 84 14
3 7 25 28 51 90 84 53 14 8
===================

var i, j, t: byte;
a: array [1..10] of byte;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(101);
write (a[i],' ' );
end;
writeln;
for i:=1 to 5 do
for j:=i+1 to 5 do
if a[i] > a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=6 to 10 do
for j:=i+1 to 10 do
if a[i] < a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=1 to 10 do
write (a[i],' ' );
end.