Cho mảng A gồm N số nguyên (n<=100). Tính tổng các phần tử của mảng là bội của 3. Đếm xem có bao nhiêu phần từ là bội của 3.

0 bình luận về “Cho mảng A gồm N số nguyên (n<=100). Tính tổng các phần tử của mảng là bội của 3. Đếm xem có bao nhiêu phần từ là bội của 3.”

1. Program NN;
   Uses crt;
   Var A: array[1..100] of longint;
       n,i,s,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; d:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);

                   If A[i] mod 3 = 0 then 

                   Begin
                        inc(d);
                        s:=s+A[i];

                   End;
           End;
           Writeln(s);
           Write(d);
           Readln
   End.

   Bình luận

2. var a:array[1..100] of longint;

   i,t,n,d:longint;

   begin

   readln(n);d:=0;t:=0;

   for i:=1 to n do read(a[i]);readln;

   for i:=1 to n do

   if a[i] mod 3=0 then begin t:=t+a[i];inc(d);end;

   writeln(t);

   writeln(d);

   readln

   end.

   Bình luận