作业帮 > 综合 > 作业

求助pascal程序:从 n 个数中挑选出最大的数

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/27 16:46:09
求助pascal程序:从 n 个数中挑选出最大的数
内容:
从 n 个数中挑选出最大的数
输入说明:
一行,若干个整数,用空格隔开
输出说明:
两个整数,第一个是总数字个数 ,第二个是最大数.用空格隔开
输入样例:
1 2 3 4 5 9 6
输出样例 :
7 9
var max,x,t:longint;
begin
read(max);t:=1;
while not eoln do {不是结尾做下面,eoln结束}
begin
read(x);
t:=t+1;
if x>max then max:=x;
end;
writeln(t,' ',max);
end.