Я только сам цикл замены элементов массива напишу, до этого надеюсь смогешь. Если нет - в лс напиши)
Var
bufer: integer;
bufer: = 0;
Begin
For i = 1 to 4
Begin
bufer:= x[i];
x[i]:= y[i];
y[i]:= bufer;
End;
For i = 1 to 4
write(x[i], ' ');
writeln;
For i = 1 to 4
write(y[i], ' ');
End.
<span> I=K * i , i=7 бит, I=7*2048 бит
I=14
</span>
1) А В В(отр с черточкой) В(отр)vA F
0 0 1 1 0
0 1 0 0 0
1 0 1 1 1
1 1 0 1 1
2) ABC AVB CVB F
0 0 0 0 0 0
0 0 1 0 1 0
0 1 0 1 1 1
1 0 0 1 0 0
0 1 1 1 1 1
1 0 1 1 1 1
1 1 0 1 1 1
1 1 1 1 1 1