Nhập vào một mảng,đếm xem có bao nhiêu phần tử dương mà không dùng câu lệnh điều kiện if

1 câu trả lời

Var A:Array[-1000..1000] of Longint;
    d:Int64;
    n,i,dem:Longint;
  Begin
      Readln(n);
      For i:=1 to n do
         Begin
           Readln(d);
           A[d]:=A[d]+1;
         End;
       For i:=0 to 1000 do dem:=dem+A[i] ;

       Write(dem);
  Readln;
 End.

Câu hỏi trong lớp Xem thêm