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
