Question

从 n 个数中挑选出最大的数（改）

Answer 1

var max,x,t:longint;

begin

read(max);t:=1;

while not eoln do

begin

read(x);

t:=t+1;

if x>max then max:=x;

end;

writeln(t,' ',max);

end.