Nhập một dãy số nguyên có N phần tử. Xuất ra màn hình dãy số vừa nhập Tính tổng các phần tử là số chẵn trong dãy trên và xuất ra kết quả màn hình

0 bình luận về “Nhập một dãy số nguyên có N phần tử. Xuất ra màn hình dãy số vừa nhập Tính tổng các phần tử là số chẵn trong dãy trên và xuất ra kết quả màn hình”

1. uses crt;
   var A:array[1..1000] of integer;
       N,i,tong:integer;
   begin
      clrscr;
      write(‘Nhap N: ‘); readln(N);
      for i:=1 to N do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i] mod 2 = 0 then tong:=tong+A[i];
      end;
      writeln;
      for i:=1 to N do write(A[i]:4);
      writeln;
      write(‘Tong cac so chan la: ‘,tong);
      readln
   end.

   Bình luận

2. program ct;

   uses crt;

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

         n,i:integer;

         S:integer;

   begin clrscr;

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

      for i:=1 to n do

        begin

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

        end;

        S:=0;

      for i:=1 to n do

        if A[i] mod 2=0 then S:=S+A[i];

      write(‘Tong cac phan tu so chan la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận