const
n=15;
var
a: array [1..n] of integer;
i,pr:integer;
begin
randomize;
pr:=1;
for i:=1 to n do
begin
a[i]:=random(101)-50;
if a[i]>0 then pr:=pr*a[i];
write(a[i]:4);
end;
writeln;
write(pr);
end.
7,5*8*1024=6144061440/7680=88*8=16 бит<span>2^16= 512 (мощность алфавита) </span>
Нужно сделать битовый сдвиг влево на 4 бита
На Си:
A << 4;
было число 5 = 101
<span>будет 5*16 = 1010000 </span>
Ответ на картинке,решали уже мы это