YOMEDIA
NONE

Viết chương trình nhập vào mảng A gồm N số nguyên A1,A2,.....,An. Sau đó in ra màn hình :

a) Số lượng số chẵn và số lẻ trong dãy

b) Tổng các số chẵn và tổng các số lẻ trong dãy

(Lưu ý: dùng chương trình con để đảm bảo các số chẵn ,số lẻ,tính tổng chẵn và tổng các số lẻ).

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Thùy Trang

    uses crt;

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

    i,n,dem,t,dem1,t1:integer;

    {----------------------chuong-trinh-con-----------------------------}

    function ktra(var x:integer):boolean;

    begin

    if x mod 2=0 then ktra:=true

    else ktra:=false;

    end;

    {---------------------chuong-trinh-chinh----------------------------}

    begin

    clrscr;

    write('Nhap n='); readln(n);

    for i:=1 to n do

    begin

    write('A[',i,']='); readln(a[i]);

    end;

    t:=0;

    dem1:=0;

    t1:=0;

    dem:=0;

    for i:=1 to n do

    begin

    if ktra(a[i])=true then

    begin

    t:=t+a[i];

    inc(dem);

    end

    else begin

    t1:=t1+a[i];

    inc(dem1);

    end;

    end;

    writeln('So luong so chan la: ',dem);

    writeln('So luong so le la: ',dem1);

    writeln('Tong cac so chan la: ',t);

    writeln('Tong cac so le la: ',t1);

    readln;

    end.

      bởi Thùy Trang 21/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON