Объяснение:
110010 = 1∙2^5+1∙2^4+0∙2^3+0∙2^2+1∙2^1+0∙2^0 = 32+16+0+0+2+0 = 50
1 мешок
а,и,о,у,ю,э,я,ы,е.
2 мешок
о,а,и,у,ю,э,я,е,ы.
Г) if x o then e: = 5 Я думаю что это так
var A:array[1..100000] of integer; i,k,i1,n:int64;
begin
read(n);
randomize;
for i:=1 to n do
A[i]:=random(2);
writeln('Массив до переформировки:');
for i:=1 to n do
write(A[i],' ');
writeln;
for i1:= 1 to n do
for i:=1 to n-1 do
if A[i]>A[i+1] then begin k:=A[i]; A[i]:=A[i+1]; A[i+1]:=k; end;
writeln('Массив после переформировки:');
for i:=1 to n do
write(A[i],' ');
end.
Решение во вложенном файле