Viết chương trình nhập vào mảng gồm 10 số nguyên Hãy tính tổng các số dương có trong mảng đó rồi đưa kết quả ra màn hình

var s,i:longint;

    a: array[1..10] of longint;

begin

for i:=1 to 10 do

begin

write('Nhap phan tu thu ',i);

read(a[i]);

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

end;

writeln;

write('Tong la: ',s);

readln

end.

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 10 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]>0 then s:=s+A[i];
        End;

        Write('S = ',s);
        Readln
End.