при выборе места строительства жилого комплекса при металлургическом комбинате необходимо учитывать "розу ветров" (следует расположить жилой комплекс так,чтобы частота ветра со стороны металлургического комбината была бы минимальной). Для этого в течение года проводилась регистрация направления ветра в районе строительства. Данные представлены в виде массива, в котором направление ветра за каждый день кодируется след. образом: 1- северный,2- южный,3- восточный, 4- западный, 5- северо-западный, 6- северо-восточный, 7- юго-западный,8- юго-восточный. Определить, как должен быть расположен жилой комплекс по отношению к комбинату.

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;Мб подойдет, надо на паскале проверять. Если ты просил массив в паскале