Задание 10 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение 10. Напишите программу. Дан одномерный массив С[1..N], содержащий большое количество нулевых элементов. Найдите длину самой большой цепочки, состоящей из...](/reshebniki/informatika/11/WBbosova/images1/sam4/3/10.png "Изображение ответа 10. Напишите программу. Дан одномерный массив С[1..N], содержащий большое количество нулевых элементов. Найдите длину самой большой цепочки, состоящей из...")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('ввод массива');
randomize;
for i := 1 to n do
begin
c[i] := random(2);//получается массив из 1 и 0
write(c[i], ' ')
end;
writeln;
lmax := 0; i := 1;
while i <= n do
begin
if (c[i] = 0)and (i+1
begin
l := 1; j := i + 1;
while (c[j] = 0) and (j < n) do //если следующий тоже 0
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('lmax=', lmax)
end.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
