& - конъюнкция (аналог умножения), выполняется первой
A&0=0, A&1=A
v - дизъюнкция (аналог сложения)
1vA=1, Av0=A
1&0 v 1&1 v 1 = 1&0 v 1&1 v 1 = 0 v 1 v 1 = 1
0&1&0&0&1 v 1 = (0&1&0&0&1) v 1 = Av1 = 1
1&1&1 v 0 v 1 = (1&1&1 v 0) v 1 = Av1 = 1
var a:array[1..10]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do a[i]:=random(101);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 5 do
for j:=1 to 4 do
if a[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
for i:=1 to 5 do
for j:=7 to 10 do
if a[j]>a[j-1] then begin
k:=a[j];
a[j]:=a[j-1];
a[j-1]:=k;
end;
for i:=1 to 10 do write(a[i],' ');
end.