1.读入10个数,输出偶数项及它们的和,输出积数项及它们的平均数。2.读入N个数,打印其中的最大数及其位置号。
參考答案:1.program v1;
var
a:array[1..10] of integer;
i,tot:integer;
begin
for i:=1 to 10 do read(a[i]);
tot:=0;
for i:=1 to 5 do
begin
writeln(a[i*2]);inc(tot,a[i*2]);
end;
writeln(tot);
tot:=0;
for i:=1 to 5 do
begin
writeln(a[i*2-1]);inc(tot,a[i*2-1]);
end;
writeln(tot/5);
end.
2.program v2;
var
a:array[1..1000] of integer;
n,i:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=1;
for i:=2 to n do if a[i]>a[max] then
max:=i;
writeln(a[max]);writeln(max);
end.