Программа на Паскаль

[nikepol]

В массиве слов SLOVA (12) подсчитать число слов, начинающих с символа "с", а в этих словах определить число гласных букв.

[ybn]

Сообщение от nikepol

пожалуйста очень нужна помощь

Приблизительно начало так:

Program Zadaha;
var
  Slova:Array [1..12] of string;
  st:string;
  i,Sum:integer;
Begin
 // Здесь вводим массив из слов
   For i:=1 to 12 do
   Begin
       Write ('Введите слово: ');
       ReadLn (SLOVA[i]);
   end;
 // Здесь считаем слова начинающихся на c
   sum:=0;
   For i:=1 to 12 do
    Begin
      st:=SLOVA[i];
      If st[1]='c' then sum:=sum+1;
   end;
   WriteLn ('Количество слов начинающихся на "с" = ',sum);
   ReadLn; //Задержка до нажатия Enter
end.

Проверь, я писал в папыхах.
А на счет подсчитать гласных - почти также.