Задачи на массивы и не только Опции

[Slayerman]

Народ помоги решить задачи
1. Подсчитать и вывести на экран кол-во слов в заданном предложении Я РАД ЧТО Я ЖИВУ
2. Из слова ПРОСТОКВАША получить фразу ВАШ ШАР ПРОСТО КРАСОТА
3. В массиве из 10 элементов найти произведение отрицательных элементов

[Altair]

1.

А что это по этой фразе или это размер показан? (хотя это не имеет значение)

Код

var s:string;
b:byte;
p:byte;
begin
readln(s);
for b:=1 to Length(s) do If s[b]=' ' then inc(p);
inc(p);
writeln('Количество слов =',p);
end.

2 - совсем условие не понятно. Как из напитка получить шар???

3.

Код

var
a:array[1..10] of integer;
pr,i:integer;
begin
{ввод массива не пишу}
pp:=1;
for i:=1 to 10 do if a[i]<0 then pp:=pp*a[i];
writeln('произв.=',pp);
end.