Паскаль задачи

[Зунтук]

Привет всем!!! значит паскаль я не знаю) По этому я тут пишу) Помогите с задачками, пожалуйста.. Их будет где-то 3 или 4 всего. Но вот первая в общем.
Слова в строкеотделены пробелами. Подсчитать количество слов, оканчивающихся на гласную букву .
Еще блоксхему пожалуйста если можно...
Остальные задачи будут по мере выполнения.

[puporev]

Привет Зунтук!!! Значит если Паскаль не знаешь, а надо, пиши в раздел "Фриланс".

[pascal65536]

Сообщение от Зунтук

Привет всем!!! значит паскаль я не знаю) По этому я тут пишу) Помогите с задачками, пожалуйста.. Их будет где-то 3 или 4 всего. Но вот первая в общем.
Слова в строкеотделены пробелами. Подсчитать количество слов, оканчивающихся на гласную букву .
Еще блоксхему пожалуйста если можно...
Остальные задачи будут по мере выполнения.

$5 ну или $10

[Зунтук]

Привет. Я Паскаль знаю, но не до такой степени. Думал поможет кто...........

[Карась]

Ну тогда ждём от тебя корявого и неочень кода...

[WOLFak]

var
 a,b:array[1..100]of string;
 i,j,k,n:integer;
 s,s1,s2:string;
begin
 readln(s);
  s:=s+' ';
  s1:='eyioa';  {Гласные}
  while s<>'' do
   begin
   s2:=copy(s,1,pos(' ',s)-1);
   if pos(s2[length(s2)],s1)<>0 then
    inc(i);
    delete(s,1,pos(' ',s));
   end;
   writeln(i);
end.

[chnry]

Привет!
Стучись в чат 393877884
Поможем...

[Dimon]

жду тебя в аське 198-012-696
стучись, помогу

[Зунтук]

ХОРОШО. СПАСИБО БОЛЬШОЕ!!!!!!

[Зунтук]

А еще с одной кто может помочь ???

Составить подпрограмму,меняющую в двумерном массиве 2 указанных столбца или строки.