дан массив из N целочисленных элементов. найти максимальное количество подряд идущих нулевых элементов. Гарантируется, что в массиве есть хотя бы одна пара рядом стоящих нулевых элементов. Ответ представить на алгоритмическом языке или любом языке программирования. укажите используемую версию языка программирования.
Ответы на вопрос
Ответил pasckal
0
Язык Паскаль АБС нэт
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 <n do begin
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.
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 <n do begin
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.
Ответил Аноним
0
Один простой вопрос: что именно в этой программе взято из языка "нэт", что Вы об этом написали в заголовке? У Вас код на уровне обычного ТурбоПаскаля. Да еще и без отступов.
Ответил Аноним
0
Так, только язык позорите...
Ответил pasckal
0
ну работает же
Ответил Аноним
0
Ну так оно будет и в Free Pascal работать. И в Borland Pascal. Наверно, Вы просто хотели написать, что набирали и запускали эту программу в PascalABС.NET. Тогда бы так и писали. Потому что если язык указан с точностью до диалекта, это обычно подразумевает. что программа идет именно на нем.
Ответил pasckal
0
ну ладно спасибо
Новые вопросы