Question

Составить прогу в паскале которая с клавы вводит последовательность символов на латинице, считает кол-во гласных этой последовательности необходимо использовать процедуру ввода последовательности и функцию которая возвращает кол-во гласных

Answer 1

Так как на мой вопрос не было ответа, то примем, что количество вводимых с клавиатуры символов тоже вводится с клавиатуры.

const
  maxn = 100; //изменяйте по усмотрению

type
  myarr = array [1..maxn] of char;

var
  a: myarr;
  n: longint;

procedure input(var a: myarr; n: longint);
var
  i: longint;
begin
  for i := 1 to n do
    read(a[i]);
end;

function kolvo_gl(a: myarr; n: longint): longint;
var
  i, k: longint;
begin
  k := 0;
  for i := 1 to n do
    case a[i] of
      'a', 'i', 'u', 'o', 'e': inc(k);
    end;
  kolvo_gl := k;
end;

begin
  readln(n);
  input(a, n);
  writeln(kolvo_gl(a, n));
end.