Шесть задач на "Бой программистов"

[Влада]

Я конечно понимаю, что следовало бы суть задач обозначить уже в названии, но их много и они длинные. Вот:
1. Даны натуральные числа n, a1, ..., an. Определите количество членов ak последовательности a1, ..., an, не меньших 150, кратных 11 и не оканчивающихся на 4.
2. Подсчитайте максимальное количество подряд идущих совпадающих элементов в целочисленном массиве длины 30.
3. Подсчитайте сумму отрицательных элементов массива, индексы которых кратны 3.
4. Подсчитайте сумму положительных элементоов, состоящих на чётных местах, и произведение отрицательных элементов, стоящих на нечётных местах.
5. Дан массив, состояий из чётного числа элементов. Найдите разность между суммой элементов первой половины массива и суммой элементов второй половины массива.
6. Посчитайте количество пар рядом стоящих равных элементов в однородном массиве.

[OLEG'arh]

var
  a:array[1..30] of integer;
  i,k_1,max1_2,max2_2,sum_3,n_4,sum_4,sum1_5,sum2_5,k_5,max_6:integer;
  s_1:string;
begin
  for i:=1 to 30 do
    a[i]:=random(600)-300;

  {1}
  for i:=1 to 30 do
    begin
      str(a[i],s_1);
      if (a[i]>=150)and(a[i] mod 11 = 0) and (s_1[length(s_1)]='4') then inc(k_1);
    end;
  {2}
  for i:=2 to 30 do
    if a[i-1] = a[i] then inc(max1_2)
                       else if max1_2>max2_2 then
                                               begin
                                                 max2_2:=max1_2;
                                                 max1_2:=0;
                                               end;
  {3}
  for i:=1 to 30 do
    if (a[i]<0) and (a[i] mod 3=0) then inc(sum_3);
  {4}
  for i:=1 to 30 do
      if (a[i]>=0) and (i mod 2=0) then sum_4:=sum_4+a[i];

  n_4:=31;
  i:=2;
  while i<= 30 do
    begin
      if a[i]<0 then
                  begin
                    n_4:=i;
                    sum_4:=a[i];
                    break;
                  end;
      inc(i,2);
   end;
  for i:=n_4 to 30 do
      if (a[i]<0) and (i mod 2<>0) then sum_4:=sum_4*a[i];
  {5}
  for i:=1 to 30 do
    if i<30/2 then inc(sum1_5,a[i]) else inc(sum2_5,a[i]);
    k_5:=sum1_5-sum2_5;
  {6}
  for i:=2 to 30 do
    if a[i-1] = a[i] then inc(max_6);
end.

Использовал один массив для данных ВАМИ задач.
В задаче №6 возможно не правильно понял условие.
вывод на экран думаю не составит труда ВАМ доделать.

[Влада]

Конечно-конечно, спасибо большое! Хотя бы намекнули (да практически всё и написали), спасибо большое! А то не знала даже как подступиться.