rovect5.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 18 行

program vector5;
var v:array [1..100]of integer;
    i,n,n1,p,z:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('v[',i,']=');readln(v[i]);
end;
for i:= 1 to n do
if v[i]<0 then n1:=n1+1
          else if v[i]>0 then p:=p+1
                         else z:=z+1;
write('p=',p);
write('n1=',n1);
write('z=',z);
readln;
end.