СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 25 № 2913

Опишите на русском языке или на одном из языков программирования алгоритм подсчета максимального количества подряд идущих отрицательных элементов в заданном целочисленном массиве длиной 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.