Giúp e với e đang cần gấp!! Tạo mảng A gồm n (n≤100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng là bội

0 bình luận về “Giúp e với e đang cần gấp!! Tạo mảng A gồm n (n≤100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng là bội”

1. Program FNG;
   Uses crt;
   Var A: array[1..100] of longint;
       n,i,s: longint;
   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 9 = 0 then s:=s+A[i];
           End;

           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận

2. 1 số chia hết cho 9 thì số đó cũng chia hết cho 3, nên mình làm 2 bản.

   * Bản 1 (đúng theo đề):

   uses crt;
   var n,i,s:longint; a:array[1..100]of longint;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do 
         begin
            readln(a[i]);
            if (a[i] mod 3=0) and (a[i] mod 9=0) then inc(s,a[i]);
         end;
      writeln(s);
   readln;
   end.

   * Bản 2 (theo quy luật):

   uses crt;
   var n,i,s:longint; a:array[1..100]of longint;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do 
         begin
            readln(a[i]);
            if a[i] mod 9=0 then inc(s,a[i]);
         end;
      writeln(s);
   readln;
   end.

   Bình luận