Please help
Дан массив строк. Найдите количество маленьких латинских букв во всех строках массива. Размер массива задан константой N. Используйте заголовок: function calc(m :Tmas):integer;

Const n=4;
type Tmas=array[1..n] of string;
var s:Tmas; i:integer;
function calc(m :Tmas):integer;
var k,i,j:integer;
begin
k:=0;
for i:=1 to n do
 for j:=1 to length(m[i]) do
  if m[i][j] in [a..z] then k:=k+1;
calc:=k;
end;
begin
for i:=1 to n do readln(s[i]);
writeln(Количество маленьких латинских букв = ,calc(s));
end.

Пример:
Program p1;
Begin
Writeln(2+3);
End.
Количество маленьких латинских букв = 19

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.