Viết chương trình tính tổng các số chẵn chia hết cho 5 Và in kết quả ra màn hình? Các bạn giúp mình với nhé, mk sẽ vote 5 sao cho nak

0 bình luận về “Viết chương trình tính tổng các số chẵn chia hết cho 5 Và in kết quả ra màn hình? Các bạn giúp mình với nhé, mk sẽ vote 5 sao cho nak”

1. program oken;

   uses crt;

   var a: array[1..1000] of longint;

         i,n,tong: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 5= 0 then tong:=tong+a[i];

       end;

   writeln(‘tong cac so chia het cho 5: ‘,tong);

   readln;

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var a:array[1..100000] of longint;
   n,i,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 2=0) and (a[i] mod 5=0)
                   then s:=s+a[i];
           end;
           writeln(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Bình luận