作业帮从 n 个数中挑选出最大的数（改）内容：从 n 个数中挑选出最大的数输入说明：一行,若干个整数,用空格隔开输出说明：两个整数,第一个是总数字个数 ,第二个是最大数.用空格隔开输入样例
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/27 14:32:18
从 n 个数中挑选出最大的数（改）内容：从 n 个数中挑选出最大的数输入说明：一行,若干个整数,用空格隔开输出说明：两个整数,第一个是总数字个数 ,第二个是最大数.用空格隔开输入样例
从 n 个数中挑选出最大的数（改）
内容：从 n 个数中挑选出最大的数
输入说明：一行,若干个整数,用空格隔开
输出说明：两个整数,第一个是总数字个数 ,第二个是最大数.用空格隔开
输入样例：1 2 3 4 5 9 6
输出样例：7 9
var
st:string;
st1:char;
a:array[1..100]of integer;
i,j,s,max:integer;
begin
readln(st);s:=length(st);j:=0;
for i:=1 to s do
begin
st1:=copy(st,i,1);
if st1' ' then begin
j:=j+1;a[j]:=(ord(st1)-48)
end
end;
max:=a[1];
for i:=1 to j do
if a[i]>max then max:=a[i];
writeln(j,' ',a[i]);
readln
end.
这是我的程序,明眼人能看出其中有问题,谁能帮我改正,加倍赏分!
从 n 个数中挑选出最大的数（改）内容：从 n 个数中挑选出最大的数输入说明：一行,若干个整数,用空格隔开输出说明：两个整数,第一个是总数字个数 ,第二个是最大数.用空格隔开输入样例
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.