Viết chương trình nhập vào N số nguyên của 1 dãy số.Sau đó in ra màn hình tổng các phần tử chẵn của các số trong dãy số đã cho. Mọi người giúp mình vớ

Viết chương trình nhập vào N số nguyên của 1 dãy số.Sau đó in ra màn hình tổng các phần tử chẵn của các số trong dãy số đã cho.
Mọi người giúp mình với gấp lắm ạ

0 bình luận về “Viết chương trình nhập vào N số nguyên của 1 dãy số.Sau đó in ra màn hình tổng các phần tử chẵn của các số trong dãy số đã cho. Mọi người giúp mình vớ”

  1. Uses crt;

    Var a: array[1..100] of integer;

            i,n:integer;

    Begin

    Clrscr;

    Write(‘nhap n: ‘);  readln (n);

    For i:=1 to n do

    Begin

    Write(‘nhap a[‘,i,’]: ‘);   readln (a[i]);

    End;

    Write (‘cac so chan co trong mang la: ‘);

    For i:=1 to n do 

    If a[i] mod 2=0 then write (a[i],’  ‘);

    Readln;

    End.

    Bình luận
  2. program tong_chan;

    uses crt;

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

          n,i,t:integer;

    begin

           clrscr;

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

           t:=0;

           for i:=1 to n do

                  begin

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

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

                  end;

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

           readln;

    end.

    Bình luận

Viết một bình luận