Uses crt;
Var t,i,n:longint; a:array[1..1000000]of longint;
Begin
Clrscr;
   write('N=');readln(n);
   For i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i]>0 then inc(t,a[i]);
      end;  writeln(t);
Readln;
End.

- 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 :

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

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

* Viết chương trình

uses crt;

var a : array[1..100] of integer;

i, n, s : integer;

begin

clrscr;

s := 0;

write('nhap so luong phan tu co trong day :');readln(n);

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if a[i] > 0 then s := s + a[i];

end;

writeln('tong s :', s);

readln

end.