Răspuns:
program apMax;
var f:text;
num, ap,nummax:integer;
begin
assign(f,'DATE.IN'); reset(f);
ap:=0; nummax:=0;
while not eof(f) do
begin
read(f,num);
if num>nummax then begin nummax:=num; ap:=1; end
else if num=nummax then inc(ap);
end;
close(f);
writeln(ap);
end.
Explicație: