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