Viết chương trình nhập vào 1 mảng có n phần tử a) Tính tổng các phần tử là số chẵn của mảng và xuất ra màn hình b) Tính tổng các phần tử là số lẻ và c

0 bình luận về “Viết chương trình nhập vào 1 mảng có n phần tử a) Tính tổng các phần tử là số chẵn của mảng và xuất ra màn hình b) Tính tổng các phần tử là số lẻ và c”

1. a) Tính tổng các phần tử là số chẵn của mảng và xuất ra màn hình:

   uses crt;
   var i,n,s:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=1 to n do
         begin
            write(‘Nhap vao phan tu thu ‘,i,’: ‘);readln(a[i]);
            if a[i] mod 2=0 then inc(s,a[i]);
         end;
      writeln(‘Tong cac so chan: ‘,s);
   readln
   end.

   b) Tính tổng các phần tử là số lẻ và chia hết cho 4 của mảng và xuất ra màn hình: 

   uses crt;
   var i,n,s:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=1 to n do
         begin
            write(‘Nhap vao phan tu thu ‘,i,’: ‘);readln(a[i]);
            if a[i] mod 4=0 then inc(s,a[i]);
         end;
      writeln(‘Tong cac so chia het cho 4: ‘,s);
   readln
   end.

   Bình luận

2. Uses crt;

   var i,n,tsc,tsl:integer;

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

   Begin

   clrscr;

   Write(‘Nhap so phan tu:’); Readln(n);

   For i:=1 to n do

   Begin

   Write(‘a[‘,i,’]=’); Readln(a[i]);

   End;

   tsl:=0; tsc:=0;

   For i:=1 to n do If a[i] mod 2=0 then
   tsc:=a[i]+tsc else If a[i] mod 2 <> 0 then
   Begin
   If a[i] mod 4 = 0 then
   tsl:=a[i]+tsl;
   End;
   Writeln(‘Tong cua cac so chan:’,tsc);

   Writeln(‘Tong cua cac so le:’,tsl);
   Readln
   End.
   *Đây là chương trình theo đề bài bạn yêu cầu. Nếu tính tổng số lẻ và phải chia hết cho 4 thì kq=0. Nên thay vào đó, mình sửa thành tính tổng số chẵn và phải chia hết cho 4 thì kq nó sẽ hợp lí hơn:
   Uses crt;
   Var i,n,tsc,tsc4,tsl:integer;
   a:array [1..1000] of integer;
   Begin
   Clrscr;
   Write(‘Nhap so phan tu:’); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘a[‘,i,’]=’); Readln(a[i]);
   End;
   tsl:=0; tsc:=0;
   For i:= 1 to n do if a[i] mod 2 <>0 then tsl:=a[i]+tsl;
   Writeln;
   Write(‘Tong cac so chan trong day la: ‘);
   For i:= 1 to n do if a[i] mod 2 =0 then tsc:=a[i]+tsc;
   Write(tsc);
   Writeln;
   For i:=1 to n do If a[i] mod 2=0 then
   Begin
   If a[i] mod 4 = 0 then
   tsc4:=tsc4+a[i];
   End;
   Writeln(‘Tong cua cac so chan chia het cho 4 la:’,tsc4);
   Writeln(‘Tong cua cac so le:’,tsl);
   Readln
   End.
   *Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Đa tạ trước ạ :333
   p/s: Hỏi và đáp, comment bên dưới!

   Bình luận