Dat: array(1..101 of integer,
Begin
Dat (1) - 2; Dat (2] :2;
Dat (3) : 3; Dat (4) : 3;
Dat (5) - 4; Dat (6) :- 4;
Dat (7): 5; Dat (8) - 5;
Dat (9) := 6; Dat(10) - 6;
m : - Dat(1);
day :- 1;
for k:- 2 to 10 do
if Dat(k) > m then
begin
m :- Dat (k):
day :- k;
end;
writeln (day);
End.

for k:- 2 to 10 do

if Dat(k) > m then

begin

m :- Dat (k):

day :- k;

end;

Тут мы ищем максимальный элемент и запоминаем его позицию в переменной дей

самые большие в массиве-это шестерки

И первая шестерка имеет номер 9, значит ответ:9