Массивы, строки, условные операторы ... Опции

[Насянечка]

№1последовательности действительных чисел a1,a2,…,an есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов P2.Сравнить модуль P2 с модулем P1,указать ,какое из произведений больше.
№2Дана строка содержащая текст,заканчивающийся точкой.Вывести на экран слова, содержащие три буквы.
№3Дана последовательность действительных чисел a1,a2,…,an.Заменить все её члены,большие данного Z ,этим числом.Подсчитать количество замен.
№4Даны действительные числа a,b,c .Удвоить эти числа ,если a>=b>=c , и заменить их абсолютными значениями ,если это не так.
№5Даны числовой ряд и некоторое число E.Найти сумму трех членов ряда,модуль которых больше или равен заданному Е.Общий член ряда имеет вид : An=n!/nn
№6 Составить программу ,которая проверяет,есть ли в списке L хотя бы два одинаковых элемента
№7составить программу для вычисления значений функций F(x) на отрезке (a,b) с шагом H .Результаты представить в виде таблиц ,первый столбец который-значения аргумента,второй-соответствующие значению функции.
№8Даны действительное число а и натуральное число n.вычислить P=(a(a+1)…(a+n-1)
№9 подсчитать количество отрицательных среди чисел a,b,c
помогите пожалуйста с решением задач

Добавлено через 5 мин.

Program Zadanie7;
Uses crt;
const n=5;
var a:array[1..n] of integer;
   i,p1,p2:integer;
   label start;
Begin
  clrscr;
  p1:=1;
  p2:=1;
  for i:=1 to n do
   begin
   Write('Vvedite chisla(cherez Enter)');
      readln(a[i]);
      if a[i]>0 then
       p1:=p1*a[i]
        else
         if a[i]<0 then
          p2:=p2*a[i]

   end;
   start:
   writeln;
   writeln('p1=',p1);
   writeln('p2=',p2);
   if abs(p1)>abs(p2) then
    writeln('|p1|>|p2|')
     else if abs(p2)>abs(p1) then
      writeln('|p2|>|p1|') else
       writeln('|p2|=|p1|');
   readln;
   end.

[Angellore]

Номер 9:

uses crt;
var num,a,b,c:integer;
begin
clrscr;
write('a: '); readln(a);
write('b: '); readln(b);
write('c: '); readln©;
num:=0;
if a<0 then inc(num);
if b<0 then inc(num);
if c<0 then inc(num);
writeln('Число отрицательных элементов равно: ',num);
readkey;
end.