program tong_duong;

uses crt;

var A:array[1..1000] of integer;

      n,i,t:integer;

begin

        clrscr;

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

        t:=0;

        for i:=1 to n do

                begin

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

                        if A[i]>0 then t:=t+A[i];

                end;

        write('Tong cac so duong la: ',t);

        readln;

end.

program vippro ;

uses crt;

var A:array[1..1000] of word ;

      q,i,a:integer;

begin

        clrscr;

        write('Nhap q: ');   readln(q);

        a:=0;

        for i:=1 to n do

                begin

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

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

                end;

        write('Tong cac so duong la: ',a);

        readln;

end.

xin hay nhất nhận giải bài tập (toán)