viết chương trình nhập vào dãy số gồm n phần tử. TÍnh tổng các phần có giá trị, tổng các phần có giá trị lẻ, các phần tử có tổng chia hết cho 5.

0 bình luận về “viết chương trình nhập vào dãy số gồm n phần tử. TÍnh tổng các phần có giá trị, tổng các phần có giá trị lẻ, các phần tử có tổng chia hết cho 5.”

1. Program kthkII;

   uses crt;

   var i, n, s, N : integer;

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

   begin

   write(‘Nhap so nguyen N: ‘); readln(N);

   write(‘Nhap do dai cua day so: ‘); readln(n);

   for i:=1 to n do

   begin write(‘A[‘,i,’]=’); readln(A[i]); end;

   for i:=1 to n do write(‘A[‘,i,’]= ‘, A[i]);

   s:=0;

   for i:=1 to n do begin 

   if A[i] mod 5=0 then s:=s+A[i]; end;

   writeln(‘Tong cac so la: ‘, s);

   readln;

   End.

   Bình luận

2. program tinh_tong;

   uses crt;

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

         n,i,tc,tl,t5:integer;

   begin

         clrscr;

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

         tc:=0;  tl:=0;  t5:=0;

         for i:=1 to n do

               begin

                     write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                     if A[i] mod 2=0 then tc:=tc+A[i] else tl:=tl+A[i];

                     if A[i] mod 5=0 then t5:=t5+A[i];

               end;

         writeln(‘Tong cac phan tu co gia tri chan la: ‘,tc);

         writeln(‘Tong cac phan tu co gia tri le la: ‘,tl);

         writeln(‘Tong cac phan tu chia het cho 5 la: ‘,t5);

         readln;

   end.

   Bình luận