Thuật toán:
B1: Nhập N và dãy số nguyên a1, a2,... , an
B2: dem←0; i←1;
B3: Nếu i > N thì chuyển đến B6
B4: Nếu `a_i` < 0 thì dem←dem+1;
B5: i←i+1; Quay lại B3
B6: In dem ra màn hình và kết thúc.
Chương trình:
program bai_giai;
uses crt;
var a:array[1..1000] of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap N: '); readln(n);
write('Nhap day: ');
for i:=1 to n do read(a[i]);
dem:=0;
for i:=1 to n do
if a[i]<0 then dem:=dem+1;
write(dem);
readln; readln;
end.