Вопрос по информатике:
СРОЧНО дан массив из N элементов. большенство элментов массива не равны нулю. найти максимальное колличество подряд идущих нулевых элементов. гарантируется что в массиве есть хотябы одна пара рядом стояих нулевых элементов. "решение должно представляться на алгоритмическом языке или любом языке программирования"
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.06.2016 09:28
- Информатика
- remove_red_eye 14515
- thumb_up 44
Ответы и объяснения 2
program gg;
var
a:array[1..100] of integer;
b:array[1..100] of integer;
i,s,c:integer;
begin
while i < 10 do begin
i+=1;
a[i]:=random(3);
write(a[i]:3);
end;
i:=0;
while i < 10 do begin
i+=1;
if a[i] = 0 then s+=1;
if ((a[i] 0) and (s > 0)) or (i = 10) then begin
c+=1;
b[c]:=s;
s:=0;
end;
i:=0;
writeln();
while b[i+1] > 0 do begin
write(b[i]:3);
end;
end;
end.
- 26.06.2016 11:46
- thumb_up 7
const n=10;
var
a:array[1..n] of integer;
i,k,max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(3);
write(a[i]:3);
end;
writeln;
k:=0; max:=0;
for i:=1 to n do
begin
if a[i] = 0 then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
end;
if k>max then max:=k;
writeln(max);
end.
Пример:
0 1 0 0 0 1 0 1 1 2
3
- 27.06.2016 07:37
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.