Задания
Версия для печати и копирования в MS Word
Опишите на русском языке или на одном из языков программирования алгоритм подсчета максимального количества подряд идущих отрицательных элементов в заданном целочисленном массиве длиной 30.
Решение.
Спрятать критерииuses crt;
const N=30;
var a:array[1..N] of integer;
i,count,max:integer;
Begin
count:=0;
max:=0;
for i:=1 to N do
begin
write('a[',i,']= ');
readln(a[i]);
end;
for i:=1 to N do
if a[i]<0 then inc(count)
else
begin
if count>=max then max:=count;
count:=0;
end;
if count>=max then max:=count;
Writeln('Max= ',max);
End.