Переливаем так:
1 (3 л.): 0 0 3 3 0 3 0 3 1 1 0 3 0 3 0
2 (8 л.): 0 8 5 0 3 3 6 6 8 0 1 1 4 4 7 <----- PROFIT!
1)тест1.doc
Тест.doc
2)с:\games\happy\pacman.exe
3)c:\pictures\foto\весна.jpg
4)столбец, абзац, строка
5)редактирования
Алфавит,содержащий два символа, называется двоичным алфавитом.
Поэтому для кодирования 26 символов достаточно пятиразрядного кода.
из ребят пойдут в кино Вика и Сережа (вродебы)
Const n=10;
var A : Array [1..10] of integer;
i, mini, maxi, min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
begin
min:=A[1];
If A[i]>max then
begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]);
end;
Writeln;
Write('Количество: ',k);
<span>end.</span>