Cho dãy A gồm N số nguyên a1 a2 ...an cho biết dãy trên có bao nhiêu số nguyên âm
2 câu trả lời
uses crt;
var n, i, x, cnt: longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(x);
if x < 0 then inc(cnt);
end;
writeln(cnt);
readln; readln;
end.
- Thuật toán đếm số lượng số nguyên âm :
- Bước 1 : Nhập số N và dãy A1, A2, ... , AN
- Bước 2 : Dem ← 0, k ← 1
- Bước 3 : Nếu k > N thì đưa ra giá trị Dem rồi kết thúc
- Bước 4 :
- Bước 4.1 : Nếu A[k] < 0 thì Dem ← Dem + 1
- Bước 4.2 : k ← k + 1 quay lại Bước 3
