作业帮 > 综合 > 作业

从 n 个数中挑选出最大的数(改)

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/23 02:22:53
从 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 个数中挑选出最大的数(改)
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.