Viết chương trình nhập vào từ bàn phím mảng A, đếm xem mảng A có bao nhiêu số lẻ và tính tổng, tích các số lẻ đó. Nêu tích và tổng cùng là một số lẻ t

0 bình luận về “Viết chương trình nhập vào từ bàn phím mảng A, đếm xem mảng A có bao nhiêu số lẻ và tính tổng, tích các số lẻ đó. Nêu tích và tổng cùng là một số lẻ t”

1. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n,dem,tong,tich: longint;
   begin
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       dem:=0; tong:=0; tich:=1;
       for i:=1 to n do
           begin
               write(‘A[‘,i,’]: ‘); readln(a[i]);
               if (a[i] mod 2=1) then
                   begin
                       dem:=dem+1;
                       tong:=tong+a[i];
                       tich:=tich*a[i];
                   end;
           end;
       writeln(‘So le co trong day so: ‘,dem);
       writeln(‘Tong cac so le: ‘,tong);
       writeln(‘Tich cac so le: ‘,tich);
       if (tong mod 2=1) and (tich mod 2=1) then   
           writeln(‘DU DIEU KIEN’)
       else
           writeln(‘KHONG DU DIEU KIEN’);
       readln;
   end.

   Bình luận

2. program ct;

   uses crt;

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

         i,n,d:integer;

         S,T:longint;

   begin clrscr;

      write(‘Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

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

        end;

        S:=0; T:=1;

      for i:=1 to n do

         if A[i] mod 2=1 then

           begin

              inc(d);

              S:=S+A[i];

              T:=T*A[i];

           end;

      writeln;

      writeln(‘Co ‘,d,’ so le’);

      writeln(‘Tong la: ‘,S);

      writeln(‘Tich la: ‘,T);

      if (S mod 2=1) and (T mod 2=1) then write(‘Du dieu kien’)

                                                           else write(‘Khong du dieu kien’);

   readln;

   end.

   Học tốt!

   

   Bình luận