Cho số nguyên N, dãy số nguyên a1,a2,...,an. Cho biết trong dãy có bao nhiêu giá trị âm. Biểu diễn thuật toán bằng liệt kê

Bước 1: Nhập n từ bàn phím

Bước 2: i<-1 to n 

Nhập A[i]

Bước 3: d<-0;

Bước 4: i<-1 

Bước 5: Nếu i>n thì thực hiện bước 8

Bước 6: Nếu A[i]<0 thì d<-d+1;

Bước 7: i<-i+1;

Bước 8: Quay lại bước 5

Bước 9: Xuất d ra màn hình

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.