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.