a+b:

program ctpt;

uses crt;

  var A: array[1..500] of longint;

       n, i, d, S: integer;

begin

        clrscr;

        write('Nhap n = '); readln(n);

        for i:=1 to n do

        begin

               write('A[', i, '] = '); readln(A[i]);

        end;

        d:=0;

        S:=0;

        for i:=1 to n do if A[i]<0 then d:=d+1;

        writeln('Cac so am trong day: ', d);

        for i:=1 to n do if A[i]>0 then S:=S+A[i];

        writeln('Tong = ', S);

        readln

end.

* Thuật toán 1 :

- Bước 1 ; nhập n và dãy a1, a2, .. , an

- Bước 2 : i ← 1; dem ← 0

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

- Bước 4 : nếu a[i] < 0  thì dem ← dem + 1

- Bước 5 : i ← i + 1, quay lại bước 3

* Thuật toán 2 :

- Bước 1 ; nhập n và dãy a1, a2, .. , an

- Bước 2 : i ← 1; s ← 0

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

- Bước 4 : nếu a[i] > 0  thì s ← s + a[i] 

- Bước 5 : i ← i + 1, quay lại bước 3