Даров ребят, помогите решить задачу для паскаля. Буду благодарен

И твоя будет работать не со всеми числами.

Все. Набежали тараканы дабы об осрать всё как обычно

Спасибо брат за помощь

Моя с большим количеством работать будет.

Мб поможешь ещё одну решить?

var n,i,a,b,c,d:longint;beginreadln (n);for i:=1 to n dobeginread (c);if c=0 then b:=b+1;end;if b>0 then write ('YES') elsewrite ('NO');end.

Сразу рабочая, переделывать не надо.

var n,i,a,b,c,d:longint;beginreadln (n);for i:=1 to n dobeginread (c);if c=0 then b:=b+1;end;if b>0 then write ('YES') elsewrite ('NO');end.