viết chương trình nhập vào một dãy số .tính tổng các số chẵn trong dãy số chẵn trong dãy số vừa nhập.

0 bình luận về “viết chương trình nhập vào một dãy số .tính tổng các số chẵn trong dãy số chẵn trong dãy số vừa nhập.”

1. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
           i, s, n: integer;
   begin
          clrscr;
          write(‘Nhap n = ‘); readln(n);
          s:=0;
          for i:=1 to n do
          begin
                 write(‘A[‘, i, ‘] = ‘); readln(A[i]);
                 if A[i] mod 2 = 0 then s:=s+A[i];
          end;
          write(‘Tong cac so chan trong day: ‘, s);
          readln
   end.

   Bình luận

2. program Mang;
   uses crt;
   var   a: array[1..10000] of integer;
         n,i,tong: integer;
   begin
          clrscr;
         
          write(‘Nhap n= ‘);readln(n);
         
          for i:=1 to n do
         
               begin
              
                   write(‘a[‘,i,‘]: ‘);readln(a[i]);
                  
               end;
         
          for i:=1 to n do
         
              If a[i] mod 2 = 0 then tong:=tong+a[i];
             
          write(‘Tong cac so chan: ‘,tong); 
         
     readln;
   end.

   Bình luận