给出整数n，接下来有n行，每行一个整数，求最小值 用pascal做

给出整数n，接下来有n行，每行一个整数，求最小值 用pascal做

(1)a<=2147483647(maxlongint)

var
n,i,min,a:longint;
begin
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(a);
if a min:=a;
end;
writeln(min);
end.

(2)a为整数
var
n,i,lenm:longint
min,a:ansistring;
begin
readln(n);
lenm:=maxlongint;
for i:=1 to n do
begin
readln(a);
if lenm begin
min:=a;
lenm:=length(a);
end
else
if lenm=length(a) then
if min>a then
min:=a;
end;
writeln(min);
end.

(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 begin lenm:=length(a); max:=a; end else if lenm=length(a) then if max 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 max:=a; end; writeln(max); end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息