2) Опишите на русском языке или одном из языков программирования алгоритм подсчета максимального количества подряд идущих отрицательных элементов в целочисленном массиве длины 30. На Паскале АБС

var     max, count, i: integer;     a: array [1..30] of integer; begin     max := 0;     count := 0;     for i := 1 to 30 do         read(a[i]);     for i := 1 to 30 do         begin         if a[i] < 0 then             inc(count)         else             begin             if max < count then                 max := count;             count := 0;             end;         end;     if max < count then         max := count;     writeln(max); end.