PASCAL的题

输入20个数，分别输出它们的最大值最小值与平均值

还有一道题目是输入一些字符，以“？”结尾，分别输出数字，字母，与其他符号的个数

第一个用for循环，第二个我也不知道，应该用while语句吧

第一题：



var

i,min,max,n:integer;

avg:real;



begin

read(min);

max:=min;

avg:=min;

for i:=2 to 20 do

begin

read(n);

if min > n then min:=n else

if max < n then max:=n;

avg:=avg+n;

end;

readln;

avg:=avg/20;

writeln('max:',max,#10,'min:',min,#10,'avg:',avg:2:2);

readln;

end.





第二题：



var

a,b,c:integer;

ch:char;

begin

a:=0;

b:=0;

c:=0;

while true do

begin

read(ch);

if ch='?' then break;

if(ch>='0')and(ch<='9')then

a:=a+1

else if(ch>='a')and(ch<='z')or(ch>='A')and(ch<='Z') then

b:=b+1

else c:=c+1;

end;

readln;

writeln('num:',a);

writeln('alpha:',b);

writeln('other:',c);

readln;

end.