<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>
<span>Zotac Geforce GTX 960 2GB GDDR5 Норм видюха :3</span>