皇家反千组百度云:输入输出的n个整数中最大、最小数及其序号

因为你没有说明用什么数据类型存储数据，我用数组a[i]来保存，用临时变量tmpmax tmpmin来保存大数和小数，直接与输入的数比较：1）若a[i]>tmpmax,则保存a[i]的值及其序号，否则不做变动；2）同理，可得最小数及其序号
附：
var a:array[1..100] of integer;
{存放输入的整数，最多100个}
tmpmax,tempmin,i,maxnum,minnum,n:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
tmpmax:=a[1];
tmpmin:=a[1];
maxnum:=1;
minnum:=1;
{初始化}
for i:=2 to n do
begin
if tmpmax<a[i] then
begin
tmpmax:=a[i];
maxnum:=i;
end;
if tmpmin>a[i] then
begin
tmpmin:=a[i];
minnum:=i;
end;
end;
writeln('The largest is the No.',maxnum,' ',tmpmax);
writeln('The smallest is the No.',minnum,' ',tmpmin);
end.