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

Question

Информатика

Даря

13 ноября, 16:09

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

+4

Ответы (1)

Знаете ответ?

Марга · Answer 1

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.