Cho dãy số a gồm N số (a1,a2,...,aN) Tính tổng các số lẻ trong dãy số a
Những câu hỏi liên quan
: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n300, |ai| 40000).a. Tính tổng dãy số A.b. Tính tổng các số chia hết cho 3 có trong dãy số trên.c. Đếm số lượng số chẵn, lẻ có trong dãy số trên.f. tìm phần tử lớn nhất, nhỏ nhất của dãy số.g. Tính tổng bình phương các số âm có trong dãy số trên.
Đọc tiếp
: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n<=300, |ai| <= 40000).
a. Tính tổng dãy số A.
b. Tính tổng các số chia hết cho 3 có trong dãy số trên.
c. Đếm số lượng số chẵn, lẻ có trong dãy số trên.
f. tìm phần tử lớn nhất, nhỏ nhất của dãy số.
g. Tính tổng bình phương các số âm có trong dãy số trên.
cho dãy a gồm n các số nguyên a1,a2 ...aN hãy tính tổng các số trong dãy ?
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết thuật toán để giải các bài toán sau Cho dãy A gồm N số hạng gồm các số a1;a2,…,an
a) Tính tổng các số hạng trong dãy A trên
b) tính tích các số lẻ trong dãy A trên c) Tính tổng các số chia hết cho 5 trong dãy A trên
giúp mình với!!!
a:
#include <bits/stdc++.h>
using namespace std;
long long n,i,x;
int main()
{
cin>>n;
int t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết thuật toán , cho dãy A gồm N số nguyên A1,A2....An
Câu 1: Đếm số lượng số âm trong dãy A
Câu 2: Tính tổng các số lẻ có trong A Câu 3: Đưa ra vị trí các số chẵn trong A
cho A và dãy số a1,a2.... an. viết thuật toán:
a) tính tổng các số chẵn có trong dãy.
b) tính tổng các số lẻ trong dãy
uses crt;
var a: array [1..100] of integer;
n, i, tsc, tsl: integer
begin
clrscr;
write('So phan tu cua mang la: '); readln(n);
while n<1 do begin
write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);
end;
for i:=1 to n do begin
write('So thu ',i,' la: '); readln(a[i]);
end;
tsc:=0;
tsl:=0;
for i:=1 to n do
if a[i] mod 2 =0 then tsc:=tsc+a[i]
else tsl:=tsl+a[i];
writeln('tong cac so chan la: ',tsc);
write('tong so cac so le la: ',tsl);
readln;
end.
Đúng 0
Bình luận (0)
Program bai1;
uses crt;
var i,n,s,s1: integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n =');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln('tong cac so duong = ' ,s);
for i:= 1 to n do
if a[i] mod 2 <> 0 then s1:=s1+a[i];
writeln('tong cac so le =' ,s1);
readln;
end.
Đúng 0
Bình luận (0)
Cho A và dãy số a1,a2.... an. viết thuật toán:
a) Tính tổng các số chẵn có trong dãy.
b) Tính tổng các số lẻ trong dãy
for i:=1 to n do
if a[i] mod 2=0 then s:=s+a[i] else ss:=ss+a[i];
writeln(' a)', s);
write(' b),ss);
Đúng 0
Bình luận (0)
Cho N và dãy số nguyên dương a1,a2,…,an. Hãy lập chương trình :
a/ Nhập và in dãy số nguyên dương a1,a2,…,an ra màn hình.
b/ Đếm xem trong dãy số đó có bao nhiêu số 10
c/ Đếm xem trong dãy có bao nhiêu số chẵn , bao nhiêu số lẻ
d/ Tính tổng các số ở vị trí chẵn có giá trị lẻ và tích các số ở vị trí lẻ có giá trị chẵn của dãy
e/ In ra màn hình các số lẻ
f/ In ra màn hình các số chẵn và lớn hơn 10
Đọc tiếp
Cho N và dãy số nguyên dương a1,a2,…,an. Hãy lập chương trình :
a/ Nhập và in dãy số nguyên dương a1,a2,…,an ra màn hình.
b/ Đếm xem trong dãy số đó có bao nhiêu số >10
c/ Đếm xem trong dãy có bao nhiêu số chẵn , bao nhiêu số lẻ
d/ Tính tổng các số ở vị trí chẵn có giá trị lẻ và tích các số ở vị trí lẻ có giá trị chẵn của dãy
e/ In ra màn hình các số lẻ
f/ In ra màn hình các số chẵn và lớn hơn 10
uses crt;
var a:array[1..100]of integer;
i,n,dem,dem1,dem2,t:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]>10 then inc(dem);
writeln('So phan tu lon hon 10 la: ',dem);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln('So luong so chan la: ',dem1);
writeln('So luong so le la: ',dem2);
t:=0;
s:=1;
for i:=1 to n do
begin
if (i mod 2=0) and (a[i] mod 2<>1) then t:=t+a[i];
if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];
end;
writeln('Tong cac so o vi tri chan co gia tri le la: ',t);
writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);
writeln('Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
writeln('Cac so chan va lon hon 10 la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);
readln;
end.
Đúng 2
Bình luận (1)
Cho dãy A gồm N số nguyên A1 A2 An tính tổng các số hạng là bội của 2 trong dãy đã cho
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên , A1, A2,...,An
a) Đếm số hợp số chẵn và số lẻ
b) Tính tổng các số chẵn
c) đếm số lượng nguyên tố trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,tc,tl,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln('Tong cac so chan la: ',tc);
writeln('Tong cac so le la: ',tl);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..1000]of integer;
i,n,dem1,dem2,t1,dem3,j,kt:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
dem1:=0;
dem2:=0;
t1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem1:=dem1+1;
t1:=t1+a[i];
end;
else dem2:=dem2+1;
end;
dem3:=0;
for i:=1 to n do
if (a[i]>1) then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then dem3:=dem3+1;
end;
writeln(dem1, ' ',dem2);
writeln(t1);
writeln(dem3);
readln;
end.
Đúng 1
Bình luận (0)