Cho số nguyên dương N và dãy N số nguyên : a1 , a2 ,....aN: a) tìm tổng các số âm ( hoặc số dương/ số chẵn / số lẻ) có trong dãy số b) đếm các số âm ( hoặc số dương/ số chẵn/ số lẻ) có trong dãy số . C) tìm vị trí các số âm ( hoặc số dương/ số chẵn/ số lẻ ) có trong dãy số.

- Thuật toán a :

+ Bước 1 : Nhập số N và dãy A1, A2, ... , AN

+ Bước 2 : i ← 1, T ← 0

+ Bước 3 : Nếu i > N thì đưa ra giá trị T rồi kết thúc

+ Bước 4 :

+ Bước 4.1 : Nếu A[i] < 0 thì T ← T + A[i]

+ Bước 4.2 : i ← i + 1 quay lại Bước 3

- Thuật toán b :

+ Bước 1 : Nhập số N và dãy A1, A2, ... , AN

+ Bước 2 : i ← 1, D ← 0

+ Bước 3 : Nếu i > N thì đưa ra giá trị D rồi kết thúc

+ Bước 4 :

+ Bước 4.1 : Nếu A[i] < 0 thì D ← D + 1

+ Bước 4.2 : i ← i + 1 quay lại Bước 3

- Thuật toán c :

+ Bước 1 : Nhập số N và dãy A1, A2, ... , AN

+ Bước 2 : i ← 1

+ Bước 3 : Nếu i > N thì kết thúc

+ Bước 4 :

+ Bước 4.1 : Nếu A[i] < 0 thì đưa ra giá trị i

+ Bước 4.2 : i ← i + 1 quay lại Bước 3

program TH;
uses crt;
var A:array [1..500] of integer;
    n,i,T,d:integer;
Begin
        clrscr;
        write('n = ');readln(n);
        for i:=1 to n do
        begin
                write('A[',i,'] = ');readln(a[i]);
                if A[i]<0 then
                begin
                        T:=t+A[i];
                        inc(d);
                end;
        end;
        writeln('a) Tong cac so am: ',T);
        writeln('b) Co ',d,' so am');
        write('c) Vi tri cac so am: ');
        for i:=1 to n do
                if A[i]<0 then write('A[',i,'] ');
        readln
End.