#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=1;

for (i=1; i<=n; i++)

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.

mọi người giúp em với em cảm ơn ạ

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=1;

for (i=1; i<=n; i++)

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=1;

for (i=1; i<=n; i++)

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=1;

for (i=1; i<=n; i++)

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long dem,x,n,i,t;

int main()

{

cin>>n;

t=0;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0)

{

dem++;

t+=x;

}

}

cout<<dem<<" "<<t;

return 0;

}

Ở free pascal ạ

uses crt;

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

i,n,dem,tb,dem1,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

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

tb:=0;

dem:=0;

for i:=1 to n do 

  if i mod 2=0 then 

begin

tb:=tb+a[i];

inc(dem);

end;

writeln('Trung binh cong cac phan tu o vi tri chan la: ',tb/dem:4:2);

dem1:=0;

for i:=1 to n do 

 if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do

 if a[i] mod j=0 then kt:=1;

if kt=0 then inc(dem1);

end;

writeln('So so nguyen to la: ',dem1);

readln;

end.

Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.

mọi người giúp em với em cảm ơn ạ

Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.

1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.

2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.

3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.

Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.

Chúc bạn học tốt .

Câu 1: 

uses crt;

var n,i,t:integer;

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t/n:4:2);

readln;

end.

Bài 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('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Bài 2: 

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('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Câu 1: 

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

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

writeln(t:4:2);

readln;

end.

Câu 2: 

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=1;

for i:=1 to n do 

  t:=t*a[i];

writeln(t:4:2);

readln;

end.