Предлагаю работу перевести на C++

[Red_Fox]

Var
D : array[1..365] of Byte; {начальные данные}
M : array[1..8] of Word;
...
For i:=1 to 8 do M:=0;
For i:=1 to 365 do Inc(M[D]);
Min:=1;
For i…...

Откликнуться на задание:

Качать без ограничений Купить доступ за 190.00 ₽