题目描述
求输入英文句子单词的平均长度。
数据第一行为一个整数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.
网友评论