Чітко формулювати тему повідомлення та не лишати поле Тема порожнім так чи ні

290

299

Посмотреть ответы 1

Ответы на вопрос:

ulyanooo

Информатика

4,8(66 оценок)

Так как на мой вопрос не было ответа, то примем, что количество вводимых с клавиатуры символов тоже вводится с клавиатуры. 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.