smirnvlad
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1.
Код:
var
n,ni,i,c: integer;
begin
read(n);
c:=0;
for i:= 1 to n do
begin
read(ni);
if ni=0 then inc(c);
end;
writeln(c);
end. |
2.
Код:
var
n,ni,i,cm,cp,cz: integer;
begin
read(n);
c:=0;
for i:= 1 to n do
begin
read(ni);
if ni=0 then inc(cz);
if ni>0 then inc(cp);
if ni<0 then inc(cn);
end;
writeln(cz);
writeln(cp);
writeln(cn);
end.
|
3.
Код:
var
n,ni,i: integer;
z: boolean;
begin
read(n);
z:=false;
for i:= 1 to n do
begin
read(ni);
if ni=0 then z:=true;
end;
if z then
Writeln('Yes')
else
Writeln('No');
end.
|
|
