Question

cho dãy số nguyên dương a1...an. Viết chương trình đếm và tính tổng các số chẵn trong dãy

Answer 1

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{---------------------------xu-ly-------------------------}

dem:=0; t:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('so cac so chan la: ',dem);

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

readln;

end.

Answer 2

#include <iostream>

using namespace std;

int main()
{
int tong=0, n,a[1001],dem=0;
cin>>n;
for(int i=1;i<=n;i++)
{
cin>>a[i];
if(a[i]%2==0)
{
tong+=a[i];
dem++;
}
}
cout<<"So cac so chan co trong day: "<<dem<<endl;
cout<<"Tong cac so chan co trong day: "<<tong;
return 0;
}

Answer 3

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{---------------------------xu-ly-------------------------}

dem:=0; t:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('so cac so chan la: ',dem);

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

readln;

end.