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

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

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

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

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

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

Язык Паскаль АБС нэтvara:array[1..100] of integer;b:array[1..50] of integer;i,c,s,n:integer;beginread(n);for i:=1 to n do a[i]:=random(3); write(a[i]:3);i:=0;while i <n do begini+=1;if a[i] =0 then s+=1;if (a[i] <> 0 and s > 0) or (i=n) then beginc+=1;b[c]:=s;s:=0;end;end;for i:=1 to n do beginwrite(b[i]:3);end;end.