nhập vào 1 bảng b gồm m phần tử.sau đó tính tổng các số chẵn của mảng và hiển thị ra màn hình

0 bình luận về “nhập vào 1 bảng b gồm m phần tử.sau đó tính tổng các số chẵn của mảng và hiển thị ra màn hình”

1. program ct;

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

   Học tốt!

   Bình luận

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

   Bình luận