给出一个整数n，接下来有n个整数，你要求出这n个整数中的最大值。 用pascal做
答案:1 悬赏:0 手机版
解决时间 2021-02-01 06:19
- 提问者网友：了了无期
- 2021-02-01 00:23
给出一个整数n，接下来有n个整数，你要求出这n个整数中的最大值。 用pascal做
最佳答案
- 五星知识达人网友：慢性怪人
- 2021-02-01 01:04
(1)a>=0
var
n,i,lenm:longint;
max,a:ansistring;
begin
readln(n);
lenm:=0;
max:='';
for i:=1 to n do
begin
readln(a);
if lenm<length(a) then
begin
lenm:=length(a);
max:=a;
end
else
if lenm=length(a) then
if max<a then
max:=a;
end;
writeln(max);
end.
(2)-2147483648<=a<=2147483647
var
n,i,max,a:longint;
beign
readln(n);
max:=-2147483648;//max为最小值
for i:=1 to n do
begin
readln(a);
if max<a then
max:=a;
end;
writeln(max);
end.
var
n,i,lenm:longint;
max,a:ansistring;
begin
readln(n);
lenm:=0;
max:='';
for i:=1 to n do
begin
readln(a);
if lenm<length(a) then
begin
lenm:=length(a);
max:=a;
end
else
if lenm=length(a) then
if max<a then
max:=a;
end;
writeln(max);
end.
(2)-2147483648<=a<=2147483647
var
n,i,max,a:longint;
beign
readln(n);
max:=-2147483648;//max为最小值
for i:=1 to n do
begin
readln(a);
if max<a then
max:=a;
end;
writeln(max);
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯