pascal语言:输入n个数,并输出最大的数和最小的数
答案:5 悬赏:20 手机版
解决时间 2021-03-18 00:52
- 提问者网友：战皆罪
- 2021-03-17 10:26
急！急！急！！！！！！！！！！！
最佳答案
- 五星知识达人网友：行雁书
- 2021-03-17 11:30
var
i,n,m,max,min:longint;
begin
readln(n);
max:=-maxlongint;
min:=maxlonint;//初始化
for i:=1 to n do
begin
readln(m);//输入一个数，循环n次
if m>max then max:=m;
if m
writeln(max)//最大;
writeln(min);//最小
end.
满意望采纳谢谢！
i,n,m,max,min:longint;
begin
readln(n);
max:=-maxlongint;
min:=maxlonint;//初始化
for i:=1 to n do
begin
readln(m);//输入一个数，循环n次
if m>max then max:=m;
if m
writeln(max)//最大;
writeln(min);//最小
end.
满意望采纳谢谢！
全部回答
- 1楼网友：人间朝暮
- 2021-03-17 13:49
var i,n,t,a,b:longint;
begin
readln(n);
readln(a);
readln(b);
if aa then a:=t;
if t
- 2楼网友：不甚了了
- 2021-03-17 12:58
var n,i,tmp,max,min:longint;
begin
readln(n);
max:=-maxlongint;
min:=maxlongint;
for i:=1 to n do
begin
readln(tmp);
if tmp>max then max:=tmp;
if tmp
- 3楼网友：末日狂欢
- 2021-03-17 12:16
program tt;
var
i,n,m,max,min:longint;
begin
write('Please enter the N number limit:');
readln(n);
max:=-maxlongint;
min:=maxlongint;
for i:=1 to n do
begin
write('Please enter the ',i,' number');
readln(m);
if m> max then max:=m;
if m
- 4楼网友：北城痞子
- 2021-03-17 12:09
var
i,n,max,min:integer;
a:array[1..100]of integer;
begin
readln(n);//输入n
max:=-maxint+1;//初始化
min:=maxint;//初始化
for i:=1 to n do
begin
read(a[i]);//读入每个数
if a[i]>max then max:=a[i];//如果这个数大于max，则把值赋给max
if a[i]
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯