Nhập vào 1 dãy gồm n số nguyên (n<=1000) Hãy tính và đưa ra tổng của các phần tử lẻ chia hết cho 3

0 bình luận về “Nhập vào 1 dãy gồm n số nguyên (n<=1000) Hãy tính và đưa ra tổng của các phần tử lẻ chia hết cho 3”

1. program phuongt;
   uses crt;
     var A: array[1..1000] of integer;
           n, i, s: 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 = 1) and (A[i] mod 3 = 0) then s:=s+A[i];
               end;
               write(‘Tong = ‘, s);
               readln
   end.

   Bình luận

2. uses crt;
   var i,s,n:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘N (n<=1000)=’);readln(n);
      s:=0;
      for i:=1 to n Do 
         begin
            write(‘a[‘,i,’]=’);readln(A[i]);
            if (a[i] mod 3=0)and(a[i] mod 2=1) then inc(s,a[i]);
         end;
       writeln(‘Tong cac so le chia het cho 3: ‘,s);
   readln
   end.

   Bình luận