Pascal小白|字符串小练习

题目描述

求输入英文句子单词的平均长度。

数据第一行为一个整数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.