Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве. Программа нужна в паскале!!!

Ответ оставил Гость

program asdassg;
uses crt;
var a:array [1..10]of integer;i,lmax,l:integer;
begin
writeln(vvedite elementu vectora) ;
for i:=1 to 10 do read (a[i]) ;
for i:=1 to 10 do write (a[i], );
writeln;
lmax:=0; l:=0;
for i:=2 to 10 do begin
if (a[i]=a[i-1]) and (a[i]=0) then l:=l+1 else l:=1;
if l>lmax then lmax:=l;
end;
writeln(samaya dlinnaya posledovatelnost 0 =,lmax);
end.