Viết phương trình tính tổng các số lẻ 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 số lẻ trong dãy số nguyên A có N phần tử ( N<=10^3)”

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

2. program tong_le;

   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] mod 2=1 then t:=t+A[i];

                   end;

           write(‘Tong cac so le la: ‘,t);

           readln;

   end.

   Bình luận