viết ct nhập dãy số n so nguyên và in ra màn hình các số chẵn trong dãy và tổng các số đó GIÚP MK VỚI

0 bình luận về “viết ct nhập dãy số n so nguyên và in ra màn hình các số chẵn trong dãy và tổng các số đó GIÚP MK VỚI”

1. program tongchan;
   var A: array[1..200] of integer ;
         i, n, S: integer ;
   begin
        writeln(′ Nhap so luong phan tu: ′);
        readln(n);
        for i:=1 to n do
              begin
                     writeln(′Nhap so thu: ′,i);
                     readln(A[i]);
              end;
        S:=0;
        writeln(′Cac so chan trong day la: ′);
        for i:=1 to n do
              if (A[i] mod 2 = 0) then
                     begin
                            write(A[i]:6);
                            S:=S+A[i];
                     end;
        writeln;
        writeln(′Tong cac so chan la: ′, S);
        readln;
   end.

   Bình luận

2. program ct;

   uses crt;

   var s,i,n:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   s:=0;

   for i:=1 to n do

   if A[i] mod 2=0 then

   begin

   writeln(‘so chan trong day la:’,A[i]);

   s:=s+A[i];

   end;

   writeln(‘tong cac so:’,s);

   readln

   end.

   Bình luận