从 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 个数中挑选出最大的数
输入说明:一行,若干个整数,用空格隔开
输出说明:两个整数,第一个是总数字个数 ,第二个是最大数.用空格隔开
输入样例: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.
这是我的程序,明眼人能看出其中有问题,谁能帮我改正,加倍赏分!
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.
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.
求助pascal程序:从 n 个数中挑选出最大的数
设计一个算法,使得从10个确定且互不相等的数中挑选出最大的一个数
编写C语言程序从n个数中找出其中最大的数?急.
求助,excel中,在一组数字当中挑选出指定个数的数字,让他们之和等于指定的数.
24的因数有哪些?从24的因数中挑选出4个数组成比列
从12的因数中挑选4个数组成比例是()
设最小的数为x,则日历上套出2×2个数中最大的数表示为( )
c语言编程从输入的n个数中,去掉一个最大数和一个最小数,求剩余数的平均值.
用正方形方法框出4个数,若他们的和为100,则这4个数中最大的数是多少?(在日历中)请写上过程,
在n个数中,若其中最大的数与它们的平均数相等,这n个数的标准差为( )
在n个数中,若其中的最大数与它们的平均数相等,则这n个数的标准差是多少?
1001各数如下面格式排列,并用一个正方形框出9个数.如果框出的9个数和是3249,那么框出的数中最大是(),最小是(