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 phần tử thuộc kiểu nguyên dương (n
cho mảng a gồm n phần tử thuộc kiểu nguyên dương (n
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).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)
tính tổng các phần tử dương chia hết cho 5 có trong mảng nguyên A gồm N phần tử(N nhập từ bàn phím,N
Xem chi tiết
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 (a[i] mod 5=0) then t:=t+a[i];
writeln(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).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)
Đề bài: viết chương trinh thực hiện: a) Nhập N nguyên dương b) Tạo mảng A và B gồm N phần tử, mỗi phần từ ngẫu nhiên nguyên đương <20
c) Tạo mảng C, mỗi phần tử của mảng Clå trị tuyệt đổi của hiệu hai phần tử A[i] – B[i]j tương ứng.
d) In 3 màng A, B, C ra mản hình.
#include <bits/stdc++.h>
using namespace std;
long long a[20],b[20],c[20],i,n;
int main()
{
cin>>n;
srand(time(NULL));
for (i=1; i<=n; i++)
a[i]=rand();
srand(time(NULL));
for (i=1; i<=n; i++)
b[i]=rand();
for (i=1; i<=n; i++)
c[i]=abs(a[i]-b[i]);
for (i=1; i<=n; i++) cout<<a[i]<<" "; cout<<endl;
for (i=1; i<=n; i++) cout<<b[i]<<" "; cout<<endl;
for (i=1; i<=n; i++) cout<<c[i]<<" "; cout<<endl;
return 0;
}
Đúng 0
Bình luận (0)
Cho mảng A gồm n phần tử , n\(\le\)255 và dãy số nguyên a1a2a3.....an. Viết công thức tính tổng hiển thị các phần tử < k (k là 1 số nguyên dương , k \(\le10^9\)
uses crt;
var a:array[1..255]of longint;
k,i,n,t:longint;
begin
clrscr;
repeat
write('Nhap so phan tu:'); readln(n);
until (0<n) and (n<=255);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i]<k then t:=t+a[i];
writeln('Tong cac so nho hon ',k,' trong day 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).Tính tổng các phần tử chia hết cho 3 tại vị trí chẵn?
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] mod 3=0) and (i mod 2=0) then t:=t+a[i];
writeln('Tong cac so chia het cho 3 o vi tri chan la: ',t);
readln;
end.
Đúng 1
Bình luận (0)