第2个回答 推荐于2016-03-26
1)
var n,i,x,max,min:integer;
begin
read(n);
read(x); max:=x; min:=x;
for i:=2 to n do
begin
read(x);
if x>max then max:=x
else if x<min then min:=x;
end;
wrtiteln('min=',min,' max=',max);
end.
2)
var x,i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin
read(x); inc(s,x):
end;
writeln('Sum=',s);
end.
3)
var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=10 downto 1 do write(a[i],' ');
writeln;
end.本回答被提问者采纳