Viết chương trình cho biết có bao nhiêu phần tử chẵn

Answers ( )

  1. Viết chương trình cho biết có bao nhiêu phần tử chẵn

    uses crt;

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

    dem,s,i,n: integer;

    begin

    clrscr;

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

    for i:=1 to n do

    begin

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

    if a[i] mod 2=0 then begin s:=s+a[i]; dem:=dem+1;

    end;

    writeln (‘trong mang co ‘,dem,’ so chan’);

    writeln (‘tong cac so chan trong mang la: ‘,s);

    readln;

    end.

  2. Viết chương trình cho biết có bao nhiêu phần tử chẵn

    program mang;

    uses crt;

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

    n,i,d,T: integer;

    Begin

    clrscr;

    write (‘Nhap so phan tu: ‘); readln(N);

    for i:=1 to N do

    begin

    write(‘A[‘,i,’]=’); readln(A[i]);

    if A[i] mod 2=0 then

    begin

    T:=T+a[i];

    d:=d+1;

    end;

    end;

    writeln(‘Trong mang co ‘,d,’ so chan’);

    write(‘Tong cac so chan trong mang = ‘,T);

    readln;

    End.

✅ Viết chương trình nhập số nguyên dương n (n<100) và dãy số nguyên A gồm n phần tử. Cho biết trong dãy A có bao nhiêu số chẵn bao nhiêu số lẽ

Viết chương trình nhập số nguyên dương n (n<100) ѵà dãy số nguyên A gồm n phần tử.Cho biết trong dãy A có bao nhiêu số chẵn bao nhiêu số lẽ

Hỏi:


Viết chương trình nhập số nguyên dương n (n<100) ѵà dãy số nguyên A gồm n phần tử.Cho biết trong dãy A có bao nhiêu số chẵn bao nhiêu số lẽ

Viết chương trình nhập số nguyên dương n (n<100) ѵà dãy số nguyên A gồm n phần tử.Cho biết trong dãy A có bao nhiêu số chẵn bao nhiêu số lẽ

Đáp:



Kymlien:

Program TH4;
Uses Crt;
Var a,b,c,d,e:longint;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day: ‘);readln(a);
b:=0;c:=0;
For d:=1 to a do
Begin
Write(‘Nhap so thu ‘,d,’ cua day: ‘);readln(e);
If e mod 2=0 then b:=b+1 else c:=c+1;
End;
Writeln(‘So luong so chan xuat hien trong day la: ‘,b);
Writeln(‘So luong so le xuat hien trong day la: ‘,c);
readln;
End.

đâʏ nè bạn

^-^

Chạy thử OK cả rồi

Kymlien:

Program TH4;
Uses Crt;
Var a,b,c,d,e:longint;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day: ‘);readln(a);
b:=0;c:=0;
For d:=1 to a do
Begin
Write(‘Nhap so thu ‘,d,’ cua day: ‘);readln(e);
If e mod 2=0 then b:=b+1 else c:=c+1;
End;
Writeln(‘So luong so chan xuat hien trong day la: ‘,b);
Writeln(‘So luong so le xuat hien trong day la: ‘,c);
readln;
End.

đâʏ nè bạn

^-^

Chạy thử OK cả rồi

Kymlien:

Program TH4;
Uses Crt;
Var a,b,c,d,e:longint;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day: ‘);readln(a);
b:=0;c:=0;
For d:=1 to a do
Begin
Write(‘Nhap so thu ‘,d,’ cua day: ‘);readln(e);
If e mod 2=0 then b:=b+1 else c:=c+1;
End;
Writeln(‘So luong so chan xuat hien trong day la: ‘,b);
Writeln(‘So luong so le xuat hien trong day la: ‘,c);
readln;
End.

đâʏ nè bạn

^-^

Chạy thử OK cả rồi

Liệt kê các giá trị chẵn trong mảng các số nguyên bằng C / C++

Trong bài viết này chúng ta sẽ thực hiện chương trình liệt kê các giá trị chẵn trong mảng các số nguyên bằng C / C++. Đây là một bài tập thường gặp khi bắt đầu với một ngôn ngữ nào đó

Viết chương trình cho biết có bao nhiêu phần tử chẵn

Viết chương trình cho biết có bao nhiêu phần tử chẵn
Bài viết này được đăng tại freetuts.net, không được copy dưới mọi hình thức.

Mình sẽ thực hiện hai chương trình với hai ngôn ngữ khác nhau, vì vậy các bạn cần có kiến thức cơ bản về hai ngôn ngữ này đã nhé!!!