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

[Slayerman]

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

[Altair]

в массиве из 10-ти элементов найти сумму чисел больших 1

Код

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