Nhập vào 1 dãy số nguyên ,tính tổng các số chia hết cho 3 .thanksss

0 bình luận về “Nhập vào 1 dãy số nguyên ,tính tổng các số chia hết cho 3 .thanksss”

1. Program BTH;
   uses crt;
   var a:array[1..100000] of longint;
   s,i,n:longint;
   Begin
           clrscr;
           Write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
           Begin
                   write(‘a[‘,i,’]: ‘);readln(a[i]);
                   If a[i] mod 3=0 then s:=s+a[i];
           end;
           writeln(‘Tong day so chia het cho 3 co trong day la: ‘,s);
           readln;
   end.

   Bình luận

2. program oken;

   uses crt;

   var a: array [1..100] of integer;

         i,n,sum:longint;

   begin

   clrscr;

   write(‘nhap so luong cua mang: ‘); readln(n);

   sum:=0;

   for i:=1 to n do

      begin

          write(‘a[”,i,’]: ‘); readln(a[i]);

          if (a[i] mod 3=0) then sum:=sum+a[i]);

      end;

   writeln(‘tong cac so chia het cho 3 trong mang: ‘,sum);

   readln;

   end.

   Bình luận