Посчитать количество согласных букв в строке - Turbo Pascal

Формулировка задачи:

хочу написать прогу чтобы с клавиатуры вводить текст по строкам и посчитать количество согласных букв но возникают некоторые проблемы
uses crt;
 
var
A:array[1..10,1..10] of string;
i,k,j,n,m,k1:integer;
 
begin writeln('vveite n'); readln(n);
 writeln('vvedite tex');
 For i:=1 to n do  begin
   for j:=1 to m do
   readln(A[i,j]);end;
  k1:=0;
 for i:=1 to n do begin
  for j:=1 to m do
   write(A[i,j]);writeln; end;
 for i:=1 to n do
  for i:=1 to length(A[i,j]) do if (A[i,j]) in ['A','E','I','U','O','Y'] then
  inc(k1);
 
 
writeln('kolichestvo soglasnih:',k1);
 
readln
end.
напишите пжл как правильно

Код к задаче: «Посчитать количество согласных букв в строке - Turbo Pascal»

textual
 uses crt;
var
A: array [ 1 .. 10] of string;
i, k , j ,n , m , k1 : integer;
begin writeln('vveite n' ) ; readln( n ) ;
writeln( 'vvedite tex' );
For i := 1 to n do  begin
readln (A [ i ]) ;end;
k1 := 0 ;
for i := 1 to n do begin
write ( A [ i]) ;writeln; end;
for i := 1 to n do
for i := 1 to length (A [ i ]) do if ( A[ i ]) in [ 'A' , 'E' , 'I' ,'U' , 'O' , 'Y' ] then
inc ( k1 );
writeln('kolichestvo soglasnih:' , k1 );
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.231 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы