Viết phương trình tính tổng các dương trong dãy số nguyên a có n phần tử (n<=10^3

0 bình luận về “Viết phương trình tính tổng các dương trong dãy số nguyên a có n phần tử (n<=10^3”

1. 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.

   Bình luận

2. 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)

   Bình luận