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

Question

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

---

Answer 1

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.
Поработай с этой программой, чтобы выводил ДА или НЕТ на весь массив, а не на каждый элемент

Comments

var n,i,a,b,c,d:longint;
begin
readln (n);
for i:=1 to n do
begin
read (c);
if c=0 then b:=b+1;
end;
if b>0 then write ('YES') else
write ('NO');
end.

---

Проще так....

---

Нафига делать бешеную программу ?

---

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

---

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

---

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

---

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

---

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

Answer 2

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.

Comments

var n,i,a,b,c,d:longint;
begin
readln (n);
for i:=1 to n do
begin
read (c);
if c=0 then b:=b+1;
end;
if b>0 then write ('YES') else
write ('NO');
end.

---

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