Viết chương trình về kiểu mảng : Nhập N, dãy N số nguyên (N <= 200) . Đếm trong dãy số có bnhieeu số lẻ. tính tổng các số trong dãy số chia hết cho 3

0 bình luận về “Viết chương trình về kiểu mảng : Nhập N, dãy N số nguyên (N <= 200) . Đếm trong dãy số có bnhieeu số lẻ. tính tổng các số trong dãy số chia hết cho 3”

1. uses crt;

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

         n,i,S:integer;

   begin

   clrscr;

   repeat readln(n) until (n<=200);

   for i:=1 to n do readln(a[i]);

   d:=0;

   S:=0;

   for i:=1 to n do 

     begin

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

        if a[i] mod 3=0 then S:=S+a[i];

     end;

   writeln(d,’ so le’);

   write(‘Tong la: ‘,S);

   readln

   end.

   Bình luận

2. program gffg;

   uses crt;

   var S,i,n,t:integer;

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

   Begin

   Clrscr;

   Write(‘Nhap so chu so cua day: ‘); Readln(n);

   t:=0;
   S:=0;

   Writeln(‘Nhap day’);

   For i:=1 to n do
      Begin
        Readln(A[i]);
        If A[i] mod 2=1 then t:=t+1;
        If A[i] mod 3=0 then S:=S+A[i];
     End;

   Writeln(‘Co ‘,t,’ so le trong day’);
   Write(‘Tong cac so chia het cho 3: ‘,S);

   Readln

   End.

   Bình luận