2 chisla
var a,b:integer;
begin
read (a , b);
if (a>b) then
write (a)
else
write (b);
end.
3 chisla
var a,b,c:integer;
begin
read (a , b , c);
if (a>b>c) then
write (a)
else if (b>a>c) then
write (b)
else if (c>a>b) then
write (c)
end.
Код и результаты работы на скриншоте. Если я правильно понял, надо посчитать количество людей родившемся в том или ином дне месяца, игнорируя первые числа. Что относительно выводов то вероятность родиться в какой-либо день меньше 31 примерно одинакова. 31 числа - примерно в 2 раза меньше, потому что такой день есть примерно в половине месяцев. Получается, вроде бы, дискретное равномерное распределение. На картинках выглядит похоже.
Т.к. нам сказано, что Dat[k] ><span>=</span> d, то нам нужно найти наибольшее значение Dat[k] но т.к. там несколько одинаковых наиб. и n := k, то записать нужно номер последнего наиб. Dat.
Ответ: 9