Viết chương trình nhập vào một mảng N. Tính tổng và đếm các số chắn, số lẻ trong mảng. In kết quả ra màn hình

0 bình luận về “Viết chương trình nhập vào một mảng N. Tính tổng và đếm các số chắn, số lẻ trong mảng. In kết quả ra màn hình”

1. program bt;

   uses crt;

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

   n,i,chan,le,d,dem:Integer;

   begin

     WriteLn(‘ phan tu cua day: ‘); readln(n);

     for i:=1 to n do

       begin

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

       end;

     chan:=0;le:=0;

       d:=0;dem:=0;

     for i:=1 to n do 

         if a[i] mod 2=0 then

           begin

           chan:=chan+a[i];

           d:=d+1;

           end

         else

             begin

             le:=le+a[i];

             dem:=dem+1;

             end;

   writeln(‘Tong chan: ‘,chan,’ so luong: ‘,d);

        

    writeln(‘Tong le: ‘,le,’ so luong: ‘,dem);   

     readln;

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       dl,dc,tl,tc,i,n: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           dl:=0; dc:=0; tl:=0; tc:=0;

           For i:=1 to n do
                   If A[i] mod 2 = 0 then
                   Begin
                           inc(dc);
                           tc:=tc+A[i];
                   End

                   Else
                   Begin
                           inc(dl);
                           tl:=tl+A[i];
                   End;

           Writeln(‘Co ‘,dc,’ so chan, tong la ‘,tc);
           Write(‘Co ‘,dl,’ so le, tong la ‘,tl);
           Readln
   End.

   Bình luận