⚃mn giúp em với ạ em cảm ơn trước ⚃ Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, az,..aN. Tính tổng các phần tử chia hết cho 3 và 5?

0 bình luận về “⚃mn giúp em với ạ em cảm ơn trước ⚃ Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, az,..aN. Tính tổng các phần tử chia hết cho 3 và 5?”

1. Program BTH;
   uses crt;
   var a:array[1..10000] of longint;
   i,n,s:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
           Begin
                   write(‘a[‘,i,’]: ‘);readln(a[i]);
                   If (a[i] mod 3=0) and (a[i] mod 5=0) then
                           s:=s+a[i];
           end;
           writeln(‘Tong cac so chia het cho 3 va 5 la: ‘,s);
           readln;
   end.

   Bình luận

2. program oken;

   uses crt;
   var a: array[1..100] of integer;
          i,n,sum: longint;
   begin
           clrscr;
           write(‘Nhap so phan tu cua mang: ‘);

           readln(n);
           for i:=1 to n do
               begin
                   write(‘a[‘,i,’]: ‘);readln(a[i]);
                   If (a[i] mod 3=0) and (a[i] mod 5=0) then
                           sum:=sum+a[i];
              end;
           writeln(‘Tong=’,sum);
           readln;
   end.

   Bình luận