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

  1. хочу написать прогу чтобы с клавиатуры вводить текст по строкам и посчитать количество согласных букв но возникают некоторые проблемы


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.


Похожие ответы
  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. дан одномерный массив n целых . подсчитать количество вхождений многозначных чисел в данной последовательности

  1. После символа «:» вставить «*», если количество символов «=» равно 5 строка вводиться пользователем

  1. Программа, не могу понять как сделать Определить количество элементов равных нулю в заданной матрице А размерностью n*n.

  1. ребят как посчитать средний бал и вывести ученика с такой-же оценкой как и средний бал?

  1. Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.

  1. Составить програму для решения следующей задачи с помощью оператора (For-to-do). Вычислить количество точек с целочисленными координатами, попадающими в круг радиуса R(R>0) с центром в начале координат. И к нему составить блок схему.

  1. Даны 5 целых чисел. Посчитайте минимально возможную и максимально возможные суммы выбрав ровно 4 числа из заданных изначально.