Cho dãy số a1, a2,-… an a,Tính tổng các số lẻ xuất hiện trong mảng b,Tính tổng các số chia hết cho 2 và 5

0 bình luận về “Cho dãy số a1, a2,-… an a,Tính tổng các số lẻ xuất hiện trong mảng b,Tính tổng các số chia hết cho 2 và 5”

1. a) Input: số nguyên N và dãy a1,…,an 
   output: số lượng số chẵn trong dãy. 
   Ý tưởng: 
   khởi gán dem=0 
   lần lượt chia các ai (i:1->N) cho 2 
   nếu ai chia hết cho 2 thì dem=dem+1 
   diễn tả thuật toán 
   liệt kê: 
   b1: nhập số nguyên dương N và dãy a1, a2,..,an 
   b2: i<-1 dem<-0 
   b3: i>N thì đưa ra biến dem rồi kthúc 
   b4: ai chia hết cho 2 thì dem<-dem+1 
   b5: i<-i+1, quay lại bc 3

   b)Input: dãy A gồm N số nguyên tử a1, a2, a3… Ăn

   Output:tính tổng các số chia hết cho 2

   Bình luận

2. a)

   program h247;

   uses crt;

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

         i, n, tl: integer;

   begin

   write(‘Nhap n ‘); readln(n);

   for i:=1 to n do

   begin

   write(‘Nhap  a[‘,i,’] ‘); readln(a[i]);

   if a[i] mod 2<>0 then tl:=tl+a[i];

   end;

   write(‘Tong so le trong mang la ‘,tl);

   readln;

   end.

   b)

   program h247;

   uses crt;

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

         i, n, tong: integer;

   begin

   write(‘Nhap n ‘); readln(n);

   for i:=1 to n do

   begin

   write(‘Nhap  a[‘,i,’] ‘); readln(a[i]);

   if (a[i] mod 2=0) and (a[i] mod 5=0) then tong:=tong+a[i];

   end;

   write(‘Tong cac so chia het cho 2 va 5 la ‘,tong);

   readln;

   end.

   Bình luận