mảng 1 chiều gồm N phần tử nguyên (N<5) sắp xếp thành dãy không tăng.
giúp mình với, pls :(
Những câu hỏi liên quan
cho mảng 1 chiều A gồm N phần tử ( N= 100) các phần tử có kiểu số nguyên. a.Nhập số nguyên N vào mảng A gồm N số nguyên.
b.Tính tổng các phần tử dương trong mảng.
#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;
if (x>0) t+=x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương (1<n<=100).Cho biết trong mảng có bao nhiêu phần tử là số nguyên tố?
uses crt;
var a:array[1..100]of integer;
i,n,kt,dem,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=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
begin
kt:=1;
break;
end;
if kt=0 then inc(dem);
end;
writeln('So phan tu la so nguyen to la: ',dem);
readln;
end.
Đúng 1
Bình luận (1)
viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương (1<n<=100).Tính tổng các phần tử có giá trị lớn nhất trong mảng?
uses crt;
var a:array[1..100]of integer;
i,n,t,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=0;
for i:=1 to n do
if max=a[i] then t:=t+a[i];
writeln('Tong cac phan tu co gia tri lon nhat la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình - nhập vào mảng 1 chiều gồm n số nguyên n nhỏ hơn hoặc bằng 100 - tính tổng các phần tử trong mảng -tính các tổng chẵn ,lẻ trong mảng
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t1,t2,t3;
int main()
{
cin>>n;
t1=0; t2=0; t3=0;
for (i=1; i<=n; i++)
{
cin>>x;
t1+=x;
if (x%2==0) t2+=x;
else t3+=x;
}
cout<<t1<<" "<<t2<<" "<<t3;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào mảng một chiều à gồm n phân tử là số nguyên (1<N<=100). Cho biết trong mảng có bao nhiêu phần tử có giá trị nhỏ nhất?
uses crt;
var a:array[1..100]of integer;
i,n,min,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
dem:=0;
for i:=1 to n do
if min=a[i] then inc(dem);
writeln('So phan tu co gia tri nho nhat la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào mảng 1 chiều A gồm có n phần tử là kiểu số nguyên 1=1000 cho biết trong mảng có bao nhiêu phần tử chia hết cho 3 xuất mảng và hiển thị kết quả
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<=n) and (n<=1000);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln('So phan tu chia het cho 3 la: ',dem);
readln;
end.
Đúng 0
Bình luận (0)
viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương 1<n<=100).Tính tổng các phần tử âm tại vị trí lẻ?
uses crt;
var a:array[1..100]of integer;
i,n,t: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]<0) and (i mod 2=1) then t:=t+a[i];
writeln('Tong cac phan tu am tai vi tri le la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương (1<n<=100).Cho biết có bao nhiêu phần tử dương tại vị trí lẻ?
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (a[i]>0) and (i mod 2=1) then inc(dem);
writeln('So phan tu duong o vi tri le la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
Cho mảng 1 chiều A có tối đa 100 phần tử các phần tử có kiểu số nguyên.
a. Nhập số nguyên N và mảng A gồm N số nguyên
b. Xuất mảng.
c. tính và đưa ra màn hình số phần tử bé hơn 2 số liền kề.
d. tính và đưa ra màn hình số phần tử lớn hơn 2 số liền kề.
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
dem1:=0;
for i:=1 to n do
if (a[i]>a[i-1]) and (a[i]>a[i+1]) then dem1:=dem1+1;
dem2:=0;
for i:=1 to n do
if (a[i]<a[i-1]) and (a[i]<a[i+1]) then dem2:=dem2+1;
writeln(dem1);
writeln(dem2);
readln;
end.
Đúng 0
Bình luận (0)