Задание 10 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

10. Напишите программу. Дан одномерный массив С[1..N], содержащий большое количество нулевых элементов. Найдите длину самой большой цепочки, состоящей из нулей.

Запишите текст программы.

program s4_v3_10;

const

n = 20;

var

c: array[1..n] of integer;

i, j, l, lmax: integer; // l – текущее количество подряд идущих 0

begin

writeln(taskввод массиваtask);

randomize;

for i := 1 to n do

begin

c[i] := random(2);//получается массив из 1 и 0

write(c[i], task task)

end;

writeln;

lmax := 0; i := 1;

while i

begin

if (c[i] = 0)and (i+1

begin

l := 1; j := i + 1;

while (c[j] = 0) and (j

begin

l := l + 1;

j := j + 1;

end;

if l > lmax then lmax := l;

l := 0; i := j;

end;

i := i + 1//если следующий не 0

end;

writeln(tasklmax=task, lmax)

end.