Viết chương trình nhập vào mảng a gồm n số nguyên. Tính và đưa ra màn hình tổng các số chẵn ở vị trí lẻ

0 bình luận về “Viết chương trình nhập vào mảng a gồm n số nguyên. Tính và đưa ra màn hình tổng các số chẵn ở vị trí lẻ”

1. program tongsochan;

   uses crt;

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

         n,i,t:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu: ‘);

   readln(n);

   writeln(‘Nhap tung phan tu cua day:’);

   for i:=1 to n do

    begin

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

     readln(A[i]);

    end;

   t:=0;

   for i:=1 to n do

     if (i mod 2=1) and (A[i] mod 2=0) then

      t:=t+A[i];

   write(‘Tong: ‘,t);

   readln

   end.

   Bình luận

2. uses crt;
   var i,n,t:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            if (a[i] mod 2=0)and(i mod 2=1) then inc(t,a[i]);
         end;
      writeln(t);
   readln
   end.

   Bình luận