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

Обоснование проекта по технологии. Выбор и обоснование темы проекта по технологии Подписаться Рекламa на статье 0 0 После введения в отечественную систему образования стандартов второго поколения, проектная деятельность стала обязательным элементом в любой учебной дисциплине. Рассмотрим ее особенности на примере технологии. Актуальность Она предполагает обоснование темы проекта по технологии. Проблема, рассматриваемая ребенком, должна быть полезной не только самому автору, но и другим людям. Обоснование темы проекта по технологии существенно увеличивает его значимость, позволяет применять результаты на практике.

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

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.