3 задачи в паскале

[bezz_yma]

буду очень благодарна за помощь)могу сказать что ничего не смыслю O_о
1)Определить, имеется ли в целочисленном массиве по крайней мере два отрицательных элемента. Если да, то найти сумму и число элементов, расположенных между первым и последним отрицательными элементами.

2)Написать логическую функцию, которая имеет значение true, если положительные элементы целочисленного массива чередуются с отрицательными элементами, и false в противном случае (нулевые элементы не учитывать).

3)В массиве циклически сдвинуть вправо на 2 позиции элементы с k-ого по n-ый.

[Данила]

1.

Код: [Выделить]

var a: array[1..100] of integer;
i,k,n,summ: integer;

begin
k:=0;
summ:=0;
//ввод массива
for i:=1 to n do begin
     if a[i]<0 then begin
             inc(k);
             summ:=summ+a[i];
      end;
end;
if k>=2 then writeln(k,summ)
  else writeln('k<2');
end.
по следующим жду ваших мыслей,идей. пусть без кода,но хоть как себе алгоритм представляете?

[testtest]

третья:

Код: [Выделить]

var a:array[1..100] of integer;
i,k,n:integer;

begin
  Randomize;
  for i := 1 to 100 do begin
    a[i] := Random(100)-50;
  end;
  for i := 1 to 100 do begin
    write(a[i], ' ');
  end;
  k := 3;
  n := 8;
  for i := k to n do begin
    a[i] := (a[i] shr 2) or (a[i] shl (sizeof(integer)*8 - 2));
  end;
  writeln;
  writeln;
  for i := 1 to 100 do begin
    write(a[i], ' ');
  end;
end.