cho n và dãy số a1,a2,…,an hãy viết thuật toán đếm các số chẵn lẽ có trong dãy số hãy tính tổng các phần tử có trong dãy số

0 bình luận về “cho n và dãy số a1,a2,…,an hãy viết thuật toán đếm các số chẵn lẽ có trong dãy số hãy tính tổng các phần tử có trong dãy số”

1. program Min;
   uses crt;
   var A:array[1..1000] of integer;
       tong,n,i,chan,le:integer;
   begin
      clrscr;
      tong:=0;
      writeln(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
         begin
            writeln(‘Nhap so thu ‘,i,’: ‘);
            readln(A[i]);
         end;
       for i:=1 to n do
          begin
             if (A[i] mod 2 = 0) then chan:=chan+1 else le:=le+1;
             tong:=tong+A[i];
          end;
       writeln(‘So so chan la: ‘,chan);
       writeln(‘So so le la: ‘,le);
       writeln(‘Tong la: ‘,tong);
       readln
   end.

   Em tham khảo nhé 😀

   Bình luận

2. var n,c,l,s,i:longint;

         a: array [1..1000] of longint;

   begin

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

   for i:=1 to n do

   begin

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

   if a[i] mod 2 = 0 then inc(c) else inc(l);

   s:=s+a[i];

   end;

   writeln;

   writeln(‘So chan la: ‘,c);

   writeln(‘So le la: ‘,l);

   write(‘Tong la: ‘,s);

   readln;

   end.

   Bình luận