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 Hotboy;

   Uses crt;

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

   I,n : byte;

   S:real;

   Begin

   Clrscr ;

   S:=0;

   Write(‘nhao so phan tu trong day’); readln(n);

   For i:=1 to n do 

   Begin

   Write(‘A[‘,i,’]’); readln(A[i]); 

   End;

   For i:=1 to n do

   If A[i] mod 9 =0  then 

   S:=S+ A[i] ; 

   Writeln(‘Tong cac phan tu chia het cho 3 va 9 trong mang la’,S); 

   Readln

   End.

   Bình luận

2. 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