cho một dãy số nguyên (gồm cả số nguyên âm và số nguyên dương)gồm N phần tử (N<15) a, nhập vào từ bàn phím số phần tử và giá trị từng phần tử. b tính tổng các phần tử dương có trong dãy

program bt;

uses crt;

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

n,i,s:Integer;

begin

  WriteLn(' phan tu cua day: '); readln(n);

  for i:=1 to n do

    begin

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

    end;

    s:=0;

    for i:=1 to n do

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

    Write(' Tong= ',s);

  readln;

end.

Program BTT;
Uses crt;
Var A: array[1..15] of longint;
    i,s: longint; n: byte;
Begin
        Clrscr;
        Write('Nhap so luong phan tu: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                If A[i]>0 then s:=s+A[i];
        End;

        Write('Tong cac phan tu duong trong day la: ',s);
        Readln
End.