3 задачи на delphi 7

[Vanta11a]

nikita33321, условие проверяет идущие подряд одинаковые отрицательные числа. Понятно, надеюсь, как исправить?

[Serge_Bliznykov]

а на мой взгляд, в первой задаче количество чисел подряд означает, что это количество отрицательных чисел, у которых есть справа сосед-отрицательное число (включая в подсчёт и данное число)!

например, вот тут:
-1 2 -3 -4 -5 1 -5 -7 пять отрицательных чисел подряд


я вижу примерно такой код решения:

program otr_podr;
var a : array[1..100] of integer;
 i, n, cur, kol : integer;
begin
  repeat
    WriteLn('Kolvo chisel v massive (ot 1 do 100):');
    readln(n);
  until (n>=1) and (n<=100);
  for i:=1 to n do
     read(a[i]);
  Readln;

  kol := 0;
  cur := 0;

  for i:=1 to n do
    if a[i]<0 then Inc(Cur)
    else begin
       if Cur>1 then Inc(kol, Cur);
       Cur := 0;
    end;

  if Cur>1 then Inc(kol, Cur);
     
  writeln(' Kolvo otricatelnyh podrayd = ',kol);
  Readln;
end.

[V0L40K_21]

Всем спасибо задачи решены