Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
26+26 вроде так...........................
Конфеты любят 52/2 = 26 человек, значит, остальные 26 любят только мороженое (они должны что-то любить и не любят конфеты). Прибавляем к ним 20 человек, любящих и то, и другое, и получаем, что мороженое любят 46 человек.
Ответ. 46, 26.