Задание: Определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве.
program S2_Z4;
type m=array[1..100] of integer;
var A:m;
procedure vvod(m:integer;var x:m);
var i: integer;
begin writeln('введите элементы массива');
for i:=1 to m do
read(x[i]);
end;
procedure moped(m:integer;var x:m);
var i,k,n:integer;
begin k:=0;n:=0;
for i:=1 to m do
if x[i]=0 then k:=k+1
else begin
if x[i-1]=0 then
if k>n then n:=k;
k:=0;end;
if k>n then
writeln('самая большая последовательность нулей состовляет ',k)
else
writeln('самая большая последовательность нулей состовляет ',n);
end;
begin
vvod(20,A); moped(20,A);
end.
|
Главная
Каталог файлов
