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)
cho mảng A gồm n số nguyên (n
cả nhà giúp em với
Cho mảng A gồm N số nguyên N<100, từ A1, A2, ... , An
c. Tìm GTLN của mảng và vị trí
b. Tính tổng các số dương có trong mảng
c. Đưa ra các số chia hết cho k có trong mảng với k nguyên
d. Tìm GTNN của mảng
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,ln,t,k,nn;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
ln=LLONG_MIN;
for (i=1; i<=n; i++) ln=max(ln,a[i]);
cout<<"So lon nhat la: "<<ln<<endl;
cout<<"VI tri la: ";
for (i=1; i<=n; i++) if (ln==a[i]) cout<<i<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++)
if (a[i]>0) t+=a[i];
cout<<"Tong cac so duong la: "<<t<<endl;
cin>>k;
for (i=1; i<=n; i++)
if (a[i]%k==0) cout<<a[i]<<" ";
cout<<endl;
nn=LLONG_MAX;
for (i=1; i<=n; i++)
nn=min(nn,a[i]);
cout<<nn;
return 0;
}
Đúng 0
Bình luận (0)
cho mảng A gồm N phần tử thuộc kiểu nguyên (0<N<103). Viết chương trình đếm số lượng số lẻ và chia hết cho 3 của mảng A
Cho mảng A gồm N số nguyên ( 1
Xem chi tiết
Viết chương trình nhập vào mảng A gồm N số nguyên (N<=100). Nhập vào một số nguyên k từ bàn phím. Xuất ra màn hình những phần tử của mảng là bội số của k.
giúp e với a
uses crt;
var a:array[1..100]of integer;
i,n,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
for i:=1 to n do
if a[i] mod k=0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Nhập 1 mảng A gồm n số nguyên dương. Đếm các số chẵn và chia hết cho 3 trong mảng A
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0;
for i:=1 to n do if a[i] mod 3=0 then d:=d+1;
write('Co ',d,' so chia het cho 3');
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).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)