Question

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

Answer 1

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.