题目描述
求输入英文句子单词的平均长度。
数据第一行为一个整数n，表示有n个单词。（1<n<=1000）
接下来每行一个单词（单词长度不会超过255）
输出为一个整数，为这些单词的平均长度。（数据保证有解）
代码
var
i,n,t:integer;
arr:array[1..10000] of string ;
begin
readln(n);
t:=0;
for i:=1 to n do readln(arr[i]);
for i:=1 to n do t:=t+length(arr[i]);
if(n=0) then writeln('n不能为零')
else writeln(t/n:0:2);
readln;
end.
