Question

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

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.

Answer 2

Program kkk;
var  n, i: integer;  a: array [1..255] of integer;
begin  readln(n);  for i := 1 to n do    readln(a[i]);  for i := 1 to n do    if a[i] = 0 then      writeln('YES')         else      writeln('NO');  end.
Поработай с этой программой, чтобы выводил ДА или НЕТ на весь массив, а не на каждый элемент