Làm sao để tính tổng các số chẵn mà chia hết cho 3 của mảng Viết chương trình luôn nha

Làm sao để tính tổng các số chẵn mà chia hết cho 3 của mảng
Viết chương trình luôn nha

0 bình luận về “Làm sao để tính tổng các số chẵn mà chia hết cho 3 của mảng Viết chương trình luôn nha”

  1. Ta chỉ cần truy vết đến từng phần tử và kiểm tra điều kiện, nếu thỏa mãn điều kiện thì tính tổng.

    program tinh_tong;

    uses crt;

    var A:array[1..1000] of integer;

          n,i,t:integer;

    begin

         clrscr;

         write(‘Nhap so luong phan tu: ‘);  readln(n);

         for i:=1 to n do

               begin

                    write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

               end;

         t:=0;

         for i:=1 to n do

               if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i];

         write(‘Tong cac so chan chia het cho 3 la: ‘,t);

         readln;

    end.

    Bình luận
  2. program chan_chia_3;

    uses crt;

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

          n,i,t:integer;

    begin

         clrscr;

         write(‘Nhap so luong phan tu: ‘);  readln(n);

         t:=0;

         for i:=1 to n do

               begin

                    write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                    if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i];

               end;

         write(‘Tong cac so chan chia het cho 3 la: ‘,t);

         readln;

    end.

    Bình luận

Viết một bình luận