超简单的PASCAL问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 11:54:08
1.打印输入n个整数中的最大，最小数及其序号。
2.求自然数e,e=1+1/2!+1/3!+1/4!+……+1/n！

const n:=
var
a:array[1..n] of integer;
i,Max,Min:integer;
begin
write('please input',n,'number');
for i:=1 to n do
read(a[i]);
Max:=1;Min:=1;
for i:=1 to n do
begin if a[Max]<a[i] then Max:=i;
if a[Min]>a[i] then Min:=i;
end;
writeln(Max:4,a[Max]:4);
writeln(Min:4,a[Min]:4);
end.
a[Max]就是最大数 max就是第几
a[Min]就是最小。。。。
2. var
i,n,S:longint;
e:real;
begin
read(n);
S:=1;e:=0;
for i:=1 to n do
begin
s:=s*i
e:=e+1/S;
end;
write(e);
end.

1 用记录,快排一下,就ok了
2
var
i,n:integer;
e:real;
begin
read(n);
for i:=1 to n do
e:=e+1/i;
write(e);
end.

鄙视2楼的...第二题代码也不看对错就直接copy过来了...那个代码写错了好不

第一题
program prog1;
var
n, i, max, min: longint;
a: array[1..10000]of longint; //1000