Program i5; var s,d,r,i: integer; a:array [1..30] of integer; begin for i:=1 to 30 do readln(a[i]); s:=0; d:=0; r:=0; for i:=1 to 30 dot begin if a[i]<0 then s:=s+1; if a[i]>0 then d:=d+1; if a[i]=0 then r:=r+1; end; writeln(s,'_',d,'_',r); end.
Var t:text; a:array[1..30] of integer; i,m,b,r:integer; begin assign(t,'output.txt'); rewrite(t); for i:=1 to 30 do begin read(a[i]); if a[i]>0 then b+=1 else if a[i]<0 then m+=1 else r+=1; write(t,a[i],' '); end; write(m,' ',b,' ',r); close(t); end.
var
s,d,r,i: integer;
a:array [1..30] of integer;
begin
for i:=1 to 30 do
readln(a[i]);
s:=0;
d:=0;
r:=0;
for i:=1 to 30 dot
begin
if a[i]<0 then
s:=s+1;
if a[i]>0 then
d:=d+1;
if a[i]=0 then
r:=r+1;
end;
writeln(s,'_',d,'_',r);
end.
a:array[1..30] of integer;
i,m,b,r:integer;
begin
assign(t,'output.txt');
rewrite(t);
for i:=1 to 30 do begin
read(a[i]);
if a[i]>0 then b+=1
else if a[i]<0 then m+=1
else r+=1;
write(t,a[i],' ');
end;
write(m,' ',b,' ',r);
close(t);
end.