Viết chương trình tính tổng các phần tử chia hết cho 5 có trong mảng A và cho biết có bao nhiêu phần tử chia hết cho 5 có trong mảng A. Chuyên tin gi

0 bình luận về “Viết chương trình tính tổng các phần tử chia hết cho 5 có trong mảng A và cho biết có bao nhiêu phần tử chia hết cho 5 có trong mảng A. Chuyên tin gi”

1. uses  crt;
   var a:array[1..100] of integer;
   n,i,t,d : integer;
   begin
       clrscr;
       read(n);
       for i:=1 to n do
       read(a[i]);

   if a[i] mod 5=0 then

   t:=t+a[i];

   d:=d+1;

   writeln(‘tổng các phần tử chia hết cho 5 :’,t);

   writeln(‘số phần tử chia hết cho 5 là:’,d);

   readln;
   end.

   Trả lời

2. Program Mang;
   Uses crt;
   Var A: array[1..10000] of longint;
       n, i, res, cnt: longint;

   Begin
           Clrscr;
           Write(‘Nhap so luong phan tu: ‘); Readln(n);

           res:=0; cnt:=0;

           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
                   If A[i] mod 5 = 0 then
                   Begin
                           res := res + A[i];
                           inc(cnt);
                   End;
           End;

           Writeln(‘Tong cac so chia het cho 5: ‘,res);
           Write(‘Co ‘,cnt,’ so chia het cho 5′);

           Readln
   End.

   Trả lời