Это определение слова система
<span>у составных условий отбора больше</span>
for k:- 2 to 10 do
if Dat(k) > m then
begin
m :- Dat (k):
day :- k;
end;
Тут мы ищем максимальный элемент и запоминаем его позицию в переменной дей
самые большие в массиве-это шестерки
И первая шестерка имеет номер 9, значит ответ:9