Tạo mảng B gồm N (N<=250) số nguyên, mỗi số có giá trị tuyệt đối không quá 1000. Hãy đưa ra số các số nguyên dương và số các số âm trong mảng.
Những câu hỏi liên quan
Đề 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)
1. Viết chương trình tạo mảng ngẫu nhiên (không tạo mảng chỉ gồm số chẵn) gồm n số nguyên (n<=200, -200<=ai<=200), đếm xem vừa nhập bao nhiêu số chẵn.( Viết bằng chương trình python)
Viết CT tạo mảng A gồm n số nguyên (n
Nhập vào mảng A gồm n số nguyên (n<=1000), hãy viết chương trình tạo ramảng B cũng gồm n phần tử, sao cho B[i] là tổng của i phần tử đầu tiên của A.
uses crt;
var a,b:array[1..1000]of integer;
i,n,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
t:=t+a[j];
b[i]:=t;
end;
for i:=1 to n do
write(b[i]:4);
readln;
end.
Đúng 1
Bình luận (1)
Viết CT tạo mảng H gồm N số nguyên (N£100). Tính tổng các phần tử của mảng là các số chia hết cho 2.
uses crt;
var h:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('H[',i,']='); readln(h[i]);
end;
t:=0;
for i:=1 to n do
if h[i] mod 2=0 then t:=t+h[i];
writeln('Tong cac so chia het cho 2 la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Cho 2 mảng A,B gồm n số nguyên được sắp xếp theo thứ tự tăng dần. Hãy tạo mảng C gồm các số từ mảng A và B sao cho các phần tử của C cũng được sắp xếp theo thứ tự tăng dần.
a, Đưa ra vị trí các số nguyên trong A.
b, Tìm trong mảng B các phần tử có giá trị 0
cho file nhap.txt gồm hai dòng :
dòng 1: ghi số n (số chẵn)
dòng 2: ghi n số nguyên
em hãy tạo mảng A là n phần tử số nguyên lấy từ file nhap.txt, tạo mảng B bằng cách cộng hai phần tử liền kề của mảng A, mảng C tạo ra bằng cách loại đi những phần không phải là số chính phương của mảng B.
kết quả ghi ra file xuat.txt như sau:
dòng 1: ghi các phần tử mảng A
dòng 2: ghi các phần tử mảng B
dòng 3: ghi các phần tử mảng C
Đọc tiếp
cho file nhap.txt gồm hai dòng :
dòng 1: ghi số n (số chẵn)
dòng 2: ghi n số nguyên
em hãy tạo mảng A là n phần tử số nguyên lấy từ file nhap.txt, tạo mảng B bằng cách cộng hai phần tử liền kề của mảng A, mảng C tạo ra bằng cách loại đi những phần không phải là số chính phương của mảng B.
kết quả ghi ra file xuat.txt như sau:
dòng 1: ghi các phần tử mảng A
dòng 2: ghi các phần tử mảng B
dòng 3: ghi các phần tử mảng C
uses crt;
const finp='nhap.txt';
fout='xuat.txt';
type mang=array[1..10000] of longint;
var f:text;
n:longint;
a:mang;
{-----------------------------------------------------}
procedure doc;
var i:longint;
begin
assign(f,finp);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
end;
{-----------------------------------------------------------------}
procedure ghi;
begin
assign(f,fout);
rewrite(f);
end;
{--------------------------------------------------------------}
function scp(x:longint):boolean;
begin
if sqr(round(sqrt(x)))=x then scp:=true
else scp:=false;
end;
{-------------------------------------------------------------}
procedure xuly;
var i,k:longint;
b:mang;
begin
for i:=1 to n do write(f,a[i],' ');
writeln(f);
k:=0;
for i:=1 to n do
if i mod 2<>0 then
begin
inc(k);
b[k]:=a[i]+a[i+1];
end;
for i:=1 to k do write(f,b[i],' ');
writeln(f);
for i:=1 to k do
if (b[i]>0) and (scp(b[i])) then write(f,b[i],' ');
end;
{--------------------------------------------------------}
begin
doc;
ghi;
xuly;
close(f);
end.
Đúng 0
Bình luận (1)
viết chương trình tạo và in ra mảng ngẫu nhiên gồm N phần tử (N
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
randomize;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
tạo mảng a gồm n phần tử (n<= 100) số nguyên viết chương trình tính và in ra màng hình tổng và số lượng phần tử chẵn trong mảng
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;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chan la: ',t);
writeln('So luong so chan la: ',dem);
readln;
end.
Đúng 0
Bình luận (0)