<span>напишу так: зефир найден 12 раз, зефир или шоколад - 15. Значит, шоколад БЕЗ зефира найден 3 раза. А ещё шоколад с зефиром найден 8 раз, то есть шоколад с зефиром и без зефира найден 8+3=11 раз</span>
Const n=10;
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(31)-30;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
if x[i] mod 2 <>0 then x[i]:=x[i]*x[i];
writeln('Измененный массив:');
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.</span>
Вот вроде так, попробуйте
A:=3;
1;
2;
2;
1;
1;
после этого в а будет храниться 16
256 мбайт * 1024 * 1024 * 8 = 2147483648 бит.
Исходя из предложенных вариантов, 215