Nhập 1 mảng số nguyên. In ra các số ở vị trí lẻ
Nhập 1 mảng số nguyên. đếm xem có bao nhiêu số lẻ
Những câu hỏi liên quan
- Viết chương trình nhập 1 mảng số nguyên gồm n phần tử
- In ra tất cả phần tử của mảng vừa nhập
- Đếm xem có bao nhiêu phần tử có giá trị là ước của 10.
- In ra các phần tử ở vị trí chẵn.
- In ra các phần tử ở vị trí lẻ.
Program HOC24;
var d,i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu cua mang vua nhap la: ');
for i:=1 to n do write(a[i],' ');
writeln;
d:=0;
for i:=1 to n do if 10 mod a[i]=0 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri la uoc cua 10');
write('Cac phan tu o vi tri chan la: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
writeln;
write('Cac phan tu o vi tri le la: ');
for i:=1 to n do if i mod 2=1 then write(a[i],' ');
readln
end.
Đúng 1
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)
Nhập 1 mảng số nguyên từ bàn phím1,In mảng vừa nhập ra màn hình,mỗi phần tử cách nhau 5 vị trí2,Đếm và in ra các số chẵn âm3,Đếm xem trong mảng có bao nhiêu phần tử bằng với 1 sô k được nhập từ bàn phím4,Tìm giá trị nhỏ nhất của mảng5,In ra toàn bộ các số nguyên dương có trong mảng6,Sắp xếp mảng theo chiều giảm dầnMọi ng giúp tui với!!!!
Đọc tiếp
Nhập 1 mảng số nguyên từ bàn phím
1,In mảng vừa nhập ra màn hình,mỗi phần tử cách nhau 5 vị trí
2,Đếm và in ra các số chẵn âm
3,Đếm xem trong mảng có bao nhiêu phần tử bằng với 1 sô k được nhập từ bàn phím
4,Tìm giá trị nhỏ nhất của mảng
5,In ra toàn bộ các số nguyên dương có trong mảng
6,Sắp xếp mảng theo chiều giảm dần
Mọi ng giúp tui với!!!!
Nhập 1 mảng số nguyên từ bàn phím
1,In mảng vừa nhập ra màn hình,mỗi phần tử cách nhau 5 vị trí
2,Đếm và in ra các số chẵn âm
3,Đếm xem trong mảng có bao nhiêu phần tử bằng với 1 sô k được nhập từ bàn phím
4,Tìm giá trị nhỏ nhất của mảng
5,In ra toàn bộ các số nguyên dương có trong mảng
6,Sắp xếp mảng theo chiều giảm dần
VCT nhập vào 1 mảng số. Hãy:
a)Tính tổng các số chia hết cho 3 và 6
b)In ra các số lớn hơn 3
c) In mảng đã nhập vào
d) Đếm xem có bao nhiêu chứ số lẻ nhập vào chia hết cho 5. In đếm
uses crt;
var a:array[1..100]of integer;
i,n,t,dem: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
if a[i] mod 6=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 3 va 6 la: ',t);
for i:=1 to n do
if a[i]>3 then write(a[i]:4);
writeln;
for i:=1 to n do
write(a[i]:4);
dem:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 5=0) then inc(dem);
writeln(dem);
readln;
end.
Đúng 1
Bình luận (1)
Bài 1:Nhập 1mảng có n số nguyên từ bàn phím1.In mảng vừa nhập2.Đếm và in ra các số chẵn 3.Tính tổng các số lẻ4.Đếm và in ra các số lẻ không chẵnBài 2:Nhập 1 mảng gồm n số nguyên từ bàn phím.In mảng vừa nhập các phần tử cách nhau 5 khoảng trống.Tìm max,min của mảngBài 3:Nhập 1 mảng gồm n số thực từ bàn phím.In mảng vừa nhập,mỗi mảng cách nhau 4 vị trí.In ra màn hình tất cả các số âm in trong mảng.Tính tổng các số âm đó
Đọc tiếp
Bài 1:Nhập 1mảng có n số nguyên từ bàn phím
1.In mảng vừa nhập
2.Đếm và in ra các số chẵn 3.Tính tổng các số lẻ
4.Đếm và in ra các số lẻ không chẵn
Bài 2:Nhập 1 mảng gồm n số nguyên từ bàn phím.In mảng vừa nhập các phần tử cách nhau 5 khoảng trống.Tìm max,min của mảng
Bài 3:Nhập 1 mảng gồm n số thực từ bàn phím.In mảng vừa nhập,mỗi mảng cách nhau 4 vị trí.In ra màn hình tất cả các số âm in trong mảng.Tính tổng các số âm đó
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,ln,nn;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
ln=a[1];
nn=a[1];
for (i=2; i<=n; i++)
{
ln=max(ln,a[i]);
nn=min(nn,a[i]);
}
cout<<ln<<" "<<nn;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một mảng hai chiều có M dòng, N cột là các số nguyên dương, sau đó:
- In ra mảng vừa nhập
- Tính tổng các số chẵn của mảng
- Đếm xem trong mảng có bao nhiêu số bằng 10.
Viết chương trình nhập vào một mảng hai chiều có M dòng, N cột là các số nguyên dương, sau đó:
- In ra mảng vừa nhập
- Tính tổng các số chẵn của mảng
- Đếm xem trong mảng có bao nhiêu số bằng 10.
#include <iostream>
using namespace std;
int main()
{
int a[100][100],i,j,m,n;
cout<<"Nhap so dong cua mang:"; cin>>n;
cout<<"Nhap so cot cua mang:"; cin>>m;
for (i=1; i<=n; i++)
for (j=1; j<=m; j++)
{
cout<<"A["<<i<<","<<j<<"]="; cin>>a[i][j];
}
for (i=1; i<=n; i++)
{
for (j=1; j<=m; j++)
cout<<a[i][j]<<" ";
cout<<endl;
}
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)