Nhập mảng A gồm N phần tử (N<=10). Đếm và tính tổng các số chia hết cho 2 và 3 trong mảng. Đưa kết quả ra màn hình

0 bình luận về “Nhập mảng A gồm N phần tử (N<=10). Đếm và tính tổng các số chia hết cho 2 và 3 trong mảng. Đưa kết quả ra màn hình”

1. program LN;
   uses crt;
   var A:array[1..10] of integer;
       i,n,d,s:integer;
   begin
   clrscr;
   writeln(‘nhap n: ‘);
   readln(n);
   for i:= 1 to n do
           begin
           writeln(‘nhap vao ptu thu ‘,i);
           readln(A[i]);
           end;
   for i:= 1 to n do
           if (A[i] mod 2 = 0) and (A[i] mod 3 = 0) then
                   begin
                   d:=d+1;
                   s:=s+A[i];
                   end;
   writeln(‘co ‘,d,’ ptu chia het cho 2 va 3′);
   writeln(‘tong la: ‘,s);
   readln;
   end.

   Bình luận