Предмет: Информатика,
автор: Аноним
Даров ребят, помогите решить задачу для паскаля. Буду благодарен
Приложения:
![](https://files.topotvet.com/i/50a/50a8c6190660a59074323f1e704fa83e.png)
Ответы
Автор ответа:
0
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.
Автор ответа:
0
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.
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.
Автор ответа:
0
Сразу рабочая, переделывать не надо.
Похожие вопросы
Предмет: История,
автор: Аноним
Предмет: Другие предметы,
автор: maufan12366123
Предмет: Кыргыз тили,
автор: dastp837
Предмет: География,
автор: sophyantipova