Nhập vào 1 mảng, đếm xem trong mảng có bao nhiêu phần tử lẻ. Tính tổng các phần tử mảng.
Những câu hỏi liên quan
-Viết chương trình:
a)Nhập vào mảng 1 chiều N phần tử nguyên(N<=100)
b)In mảng vừa nhập.
c)Tính tổng các phần tử lẻ/chẵn trong mảng
d)Đếm xem trong mảng có bao nhiều phần tử chia hết cho 3.
e)Tính tổng các phần tử trong mảng.
f)Sắp xếp các mảng theo thứ tự tăng dần.
Cho mảng A gồm n phần tử là các số nguyên a, Nhập vào mảng A từ bàn phím b, tính tổng của các phần tử chẵn c, tính tổng của các phần tử lẻ d, đếm xem có bao nhiêu phần tử trong dãy chia hết cho 3
viết chương trình nhập vào mảng a gồm n phần tử số nguyên a1...an đếm xem trong mảng có bao nhiêu phần tử chẵn và tích tổng các giá trị của phần tử chẵn và thông báo ra màn hình
var a:array[1..100] of integer;
i,n,S,d:byte;
begin
write(' n = '); readln(n);
for i:=1 to n do begin
write('A[',i,'] = ');
readln(A[i]);
end;
d:=0; S:=0;
for i:=1 to n do if A[i] mod 2 = 0 then begin
d:=d+1;
S:=S+A[i];
end;
write('Dãy có ',d,' phần tử là số chẵn và tổng của chúng là : S = ',S);
readln
end.
Đúng 0
Bình luận (0)
1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất
uses crt;
var a:array[1..100]of integer;
i,n,dem,max,t,min,dem1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=-32000;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if max<a[i] then max:=a[i];
end;
if dem=0 then writeln('Trong day khong co so chan')
else begin
writeln('So so chan la: ',dem);
writeln('So chan lon nhat la: ',max);
end;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+a[i];
writeln('Tong cac so o vi tri le la: ',t);
min:=maxint;
dem1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem1);
if min>a[i] then min:=a[i];
end;
if dem1=0 then writeln('Trong day khong co so le')
else writeln('So le nho nhat la: ',min);
readln;
end.
Đúng 1
Bình luận (0)
1. Viết chương trình thực hiện các công việc sau:a. Nhập vào 1 mảng A gồm 15 số nguyênb. In ra thành 1 dãy số hàng ngang với khoảng cách là 2c. Tính tổng các phần tử trong mảngd. Đếm xem trong mảng có bao nhiêu phần tử lớn hơn 0?e. In ra phần tử có giá trị lớn nhất trong mảngf. In ra chỉ số của phần tử có giá trị lớn nhất trong mảngg. Sắp xếp thành dãy số tăng dần
Đọc tiếp
1. Viết chương trình thực hiện các công việc sau:
a. Nhập vào 1 mảng A gồm 15 số nguyên
b. In ra thành 1 dãy số hàng ngang với khoảng cách là 2
c. Tính tổng các phần tử trong mảng
d. Đếm xem trong mảng có bao nhiêu phần tử lớn hơn 0?
e. In ra phần tử có giá trị lớn nhất trong mảng
f. In ra chỉ số của phần tử có giá trị lớn nhất trong mảng
g. Sắp xếp thành dãy số tăng dần
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 1
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 0
Bình luận (0)
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập 1 mảng số nguyên gồm n phần tử
- in ra các phần tử của mảng vừa nhập
- In ra các phần tử có giá trị chẵn
- Đếm xem có tất cả bao nhiêu phần tử chẵn. In ra tổng số phần tử chẵn
uses crt;
var n,i,chan,tonchan:integer;
a:array[1..100] of integer;
begin
write('nhap n '); readln(n);
for i:=1 to n do
begin
write('a[i]='); readln(a[i]);
end;
writeln("in cac phan tu trong mang");
for i:=1 to n do
begin
writeln(a[i]);
end;
writeln("in cac phan tu chan");
chan:=0;
for i:=1 to n do
if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;
write('tong cac phan tu chan ',chan);
readln;
end.
Đúng 2
Bình luận (3)
Viết chương trình nhập vào một mảng các số nguyên gồm n phần tử sau đó:
a) Tính tổng các số chẵn trong mảng
b) Tính tổng các số lẻ trong mảng
c) Đếm xem có bao nhiêu phần tử chẵn trong mảng
d) Đếm xem có bao nhiêu phần tử lẻ trong mảng
program chuongtrinh;
uses crt;
var chan, le, i,dem1, dem2 :integer;
a:array [1 .. 1000 ] of integer;
begin
write (' Nhap gia tri n = ');
readln (n);
for i:=1 to n do
begin
write ('a[',i,']= ');
readln (a[i]);
end;
chan:= 0;
dem1:=0;
dem2:=0;
le:= 0;
for i:=1 to n do if i mod 2 = 0 then
begin
dem1:=dem1+1;
chan:=chan+a[i];
end;
for i:=1 to n do if i mod 2 <> 0 then
begin
dem2:=dem2+1;
le:=le+a[i];
end;
writeln (' Tong chan la: ',chan);
writeln (' So phan tu chan trong mang la: ',dem1);
writeln (' Tong le la: ',le);
writeln (' So phan tu le trong mang la: ', dem2);
readln
end.
P/S: thử xem được không nhé.
Đúng 0
Bình luận (0)