подергай синий колпачок либо сними и обратно вставь
я так всегда делаю
WordPad-<span>Векторная графика</span>Photoshop-растровая
Дексобайт, Теробайт, Гигобайт, мегабайт, килобайт, байт,бит
N=2^i;
128=2^7 => i=7 бит
I=k*i=120*7=840 бит/8 = 105 байт
Ответ: 105 байт
<span><span>Var
D : array[1..365] of Byte; {начальные данные}
M : array[1..8] of Word;
...
For i:=1 to 8 do M[i]:=0;
For i:=1 to 365 do Inc(M[D[i]]);
Min:=1;
For i:=2 to 8 do
If M[i]<M[Min] then Min:=i;
Case Min of
1 : Writeln('С южной стороны от комбината');
2 : Writeln('С северной стороны от комбината');
...
8 : Writeln('С северо-западной стороны от комбината');
End;
Мб подойдет, надо на паскале проверять. Если ты просил массив в паскале</span></span>