задачи в Turbo Pascal

[VEN7]

Помогите с задачами в Паскале пж, оч нужно
1. Дано слово длиной пять символов. Определить, есть ли в нем буква 'М' или буква 'Н'. Вывести соответствующее сообщение.
2. Определить Z=(A-2)^2 - (A-2)^4 /2! + (A-2)^6 /4! - (A-2)^8 /6! , значение A: 3>= |A| >2
3. Дан массив P1, ... , P15. Определить N - количество элементов Pi, предшествующих первому отрицательному Pi. Если N<7, то заменить отрицательные Pi на 0.
4. Даны массивы F1, ... , F20 - фамилии водителей; NF1, ... , NF20 - номерные знаки автомашин; S1, ... , S20 - пройденный за смену путь, км; RT1, ... , RT20 - расход топлива за смену, л. Вывести список водителей с указанием номерных знаков автомашин, у которых расход топлива на 100 км составил от 8 до 10 л. Отдельно вывести список водителей, у которых расход топлива более 10 л на 100 км.
5. Если единственный максимум в заданной матрице больше 2.5 и находится на главной диагонали, то все элементы такой матрицы, кроме этого элемента, разделить на максимум.

[Chudo4258]

1:

readln(s);
p:=false;
for i:=1 to Length(s) do
 if (s[i]='M') or (s[i]='H') then p:=true;
writeln(p);

[Chudo4258]

3:

for i:=1 to 15 do 
 readln(P[i]);

i:=1;
while P[i]>=0 do inc(i);
i:=i-1;//кол-во эл. до первого отрицательного

if i<7 then
 for i:=1 to 15 do
  if P[i]<0 then P[i]:=0;

[VEN7]

А описание переменных в третьей не подскажите?)

[DM_bite]

var P: array [1..15] of integer;
     i: integer;

[VEN7]

Спасибо)А с этими задачками не поможете?

[VEN7]

И вот с этими

[MaTBeu]

А вот с этими не поможем. Вы начинаете наглеть. У человеческой доброты есть пределы. Закрыто.