给写2个pascal程序下

来源：百度知道 编辑：UC知道 时间：2024/05/22 13:58:51
1、读入10个数,输出偶数项及他们的和
2、读入n个数,打印其中的最大数及其位置号
都要用数组 完整 没错的啊 不要太复杂......快点,.最好第一题 或2题都做.快点

program xxx;
var
a:array[1..10] of integer;
i,s:integer
begin
s:=0;
for i:=1 to 10 do
read(a[i]);
for i:= 1 to 10 do
if a[i] mod 2 =0
then begin write(a[i]:5); s:=s+a[i]; end;
write(s);
end.

program xxx;
const
n=50;
var
a:array[1..n] of integer;
i,m,t:integer;
begin
for i:=1 to n do
read(a[i]);
t:=0;
for i:=1 to n do
if a[i]>t
then begin t:=a[i]; m:=i; end;
write(m,t);
end.