Подсчитать в строковой матрице количество слов, длина которых превышает 5 символов

@Алиса из страны · Регистрация: 25.02.2016

Студворк — интернет-сервис помощи студентам

Вводится массив К×М из слов. Подсчитать количество слов,размером больше 5 символов.

@chealbert · 26.02.2016, 10:26

Pascal

Uses crt;
Const m=3;n=3;
Var i,j,k:integer; a:array[1..n,1..m]of string;
Begin
 clrscr;
 randomize;
 for i:=1 to n do
  for j:=1 to m do
   begin
    writeln('Vvedite a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 for i:=1 to n do
  begin
   for j:=1 to m do write(a[i,j],' ');
   writeln;
  end;
 k:=0;
 for i:=1 to n do
  for j:=1 to m do
   if length(a[i,j])>5 then inc(k);
 write('Slov bolshe 5 simvolov=',k);
End.

@Алиса из страны 0 / 0 / 0 Регистрация: 25.02.2016 Сообщений: 3
		1
	Подсчитать в строковой матрице количество слов, длина которых превышает 5 символов 26.02.2016, 00:10. Показов 1829. Ответов 1 Метки нет (Все метки) Вводится массив К×М из слов. Подсчитать количество слов,размером больше 5 символов. 0

Опции темы

Подсчитать в строковой матрице количество слов, длина которых превышает 5 символов

Решение