Дан массив из N целочисленных элементов. найти максимальное количество подряд идущих...

Question

Дан массив из N целочисленных элементов. найти максимальное количество подряд идущих нулевых элементов. Гарантируется, что в массиве есть хотя бы одна пара рядом стоящих нулевых элементов. Ответ представить на алгоритмическом языке или любом языке программирования. укажите используемую версию языка программирования.

Comments

А зачем еще раз тот же вопрос?

---

С уточнением

Answer 1

Язык Паскаль АБС нэт

var
a:array[1..100] of integer;
b:array[1..50] of integer;
i,c,s,n:integer;
begin
read(n);
for i:=1 to n do a[i]:=random(3); write(a[i]:3);
i:=0;
while i i+=1;
if a[i] =0 then s+=1;
if (a[i] <> 0 and s > 0) or (i=n) then begin
c+=1;
b[c]:=s;
s:=0;
end;
end;
for i:=1 to n do begin
write(b[i]:3);
end;
end.

Comments

Один простой вопрос: что именно в этой программе взято из языка "нэт", что Вы об этом написали в заголовке? У Вас код на уровне обычного ТурбоПаскаля. Да еще и без отступов.

---

Так, только язык позорите...

---

ну работает же

---

Ну так оно будет и в Free Pascal работать. И в Borland Pascal. Наверно, Вы просто хотели написать, что набирали и запускали эту программу в PascalABС.NET. Тогда бы так и писали. Потому что если язык указан с точностью до диалекта, это обычно подразумевает. что программа идет именно на нем.

---

ну ладно спасибо