I = K*i, где K-кол-во символов, i- размер алфавита
<span> Значит i = 8</span>
<span> бит</span>
Так как нам нужно в байтах, то (в 1 байте 8 бит) делим на 8 ()
<span> байт</span>
Подсчитываем и в итоге получаем ответ:
<span> байт</span>
<span>Ответ: 30720 байт. вот решение </span>
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
Var s:string;
ar:array[1..10] of integer;
f:text;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin;
str(ar[i],s);
write(f,s,' ');
end;
close(f);
<span>end.</span>
1. 80000 бит
2. 1 920 000 бит
3. 1,5 мегабайт