с адаптивным арифметическим кодированием. Закодировать слова: BCACDB и CABADBC.

1)

Program Pr1;
uses crt;
const n=15;
var mas:array[1..n] of integer;
j,i,h,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do mas[i]:=random(10);
k:=0;
for i:=1 to n do write(mas[i]);
for i:=1 to n div 2 do begin
h:=mas[n-k];
mas[n-k]:=mas[i];
mas[i]:=h;
k:=k+1;
end;
writeln;
for i:=1 to n do write(mas[i]);
end.

2)

Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of real;
i,k:integer;
Begin
clrscr;
for i:=1 to n do begin
writeln('vvedite ',i,'-oe chislo');
readln(mas[i]);
end;
k:=0;
for i:=1 to n do if mas[i]>0 then k:=k+1;
writeln(k);
end.

3)

Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of integer;
i,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do mas[i]:=random(10);
for i:=1 to n do if i mod 2=0 then mas[i]:=8;
for i:=1 to n do write(mas[i]);
end.

 4)

Program Pr1;
uses crt;
const n=20;
var mas:array[1..n] of integer;
mas2:array[1..n] of integer;
mas3:array[1..n] of integer;
i:integer;
Begin
clrscr;
randomize;
for i:=1 to n do begin
mas[i]:=random(10);
mas2[i]:=random(10);
end;
for i:=1 to n do write(mas[i]);
writeln;
for i:=1 to n do write(mas2[i]);
for i:=1 to n do if mas[i]<mas2[i] then mas3[i]:=mas[i]
else mas3[i]:=mas2[i];
writeln;
for i:=1 to n do write(mas3[i]);
end.

НАЗЕМНЫЙ

Безрельсовый

автомобили; троллейбусы; мотоциклы; мотороллеры; мопеды;велосипеды; краны; тракторы;
экскаваторы; упряжки; телеги;
сани; снегоходы; болотоходы;
вездеходы; самокаты; коляски.

Рельсовый

- железнодорожный;
-трамваи;
- дрезины;
- вагонетки;
- монорельсовый.

ВОДНЫЙ

морской речной подводный

теплоходы; катера; танкеры; сухогрузы; паромы; баржи; буксиры; контейнеровозы; лихтеровозы; сейнеры; ледоколы; парусный; гребной; плоты; катамараны; на воздушной подушке.

теплоходы; катера; танкеры; сухогрузы; паромы; баржи; буксиры; контейнеровозы; лихтеровозы; сейнеры; ледоколы; парусный; гребной; плоты; катамараны; на воздушной подушке. подводные лодки;
батискафы;
батисферы.

    ВОЗДУШНЫЙ

- самолеты;
- вертолеты;
- гидропланы;
- планеры;
- дельтопланы;
дирижабли;
воздушные шары.

   СПЕЦИАЛЬНЫЙ

- метро;
- эскалаторы;
- лифты;
- подъемники;
- канатные дороги;
- транспортеры;
трубопроводы;
- транспорт войск и спецформирований.