Задание. Вставьте вместо точек слово из трех (четырех) букв, которое будет являться началом одного слова и окончанием другого.
Пример: С (тон) на.
1. Ви (…) ол.
2. Ам (…) ин.
3. Лу (…) ыс.
4. За (…) от.
5. За (…) сат.
6. Слу (…) ка.
7. На (…) ер.
8. До (…) ок.
9. Пи (…) о.
10. Ту (…) ака.
11. Бал (…) еда.
12. Ку (…) мус.
13. На (…) ец.
14. На (…) дух.
15. За (…) ура.
16. Ка (…) арь.
17. По (…) ва.
18. Пре (…) ица.
19. Ку (…) ог.
20. Бан (…) ость.
21. Во (…) а.
22. Ка (…) еря.
23. За (…) ня.
24. Под (…) идол.
25. На (…) ина.
26. Ро (…) оп.
27. По (…) ан.
28. И (…) ина.
29. На (…) на.
30. Са (…) он.
31. По (…) ожа.
32. До (…) к.
33. Ну (…) ва.
34. Кон (…) нир.
35. Ме (…) пор.
36. Зас (…) он.
37. Мол (…) рок.
38. П (…) ра.
39. Буй (…) чок.
40. Гар (…) ет.
41. От (…) ер.
42. Ро (…) ва;
43. Вок (…) ог.
44. Рас (…) ун.
45. Х (…) кой.
46. П (…) кость.
47. Ту (…) ник.
48. Сор (…) аж.
49. Ку (…) аж.
50. Ез (…) тор
const n=5;
var a:array[1..n] of integer;
b:array[0..8] of integer;
ar:array[1..n] of integer;
i,c,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i]:4);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if a[i]=j then inc(b[j]);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if (b[j]>1) and (a[i]=j) then a[i]:=9;
if a[i]<>9 then
begin;
inc(c);
ar[c]:=a[i];
end;
end;
writeln;
for i:=0 to 8 do writeln(i,'=',b[i]);
writeln;
writeln('Final array:');
for i:=1 to n do
if a[i]=9 then a[i]:=0;
for i:=1 to c do
begin;
a[i]:=ar[i];
write(a[i]:4);
end;
end.