Viết chương trình nhập giá trị cho N phần tử của mảng số nguyên A1 A2 A3 ... AN và số nguyên K ; Đếm và tính tổng các phần tử của mảng A có giá trị chia hết cho K
Những câu hỏi liên quan
viết chương trình nhập vào mảng một chiều gồm N số nguyên (N<=1000 và mảng A gồm N số nguyên A1,A2,A3,...,An có giá trị tuyệt đối không lớn hơn 1000 hãy đưa ra màng hình những thông tin sau
A nhập mảng
B in mảng
C đếm xem có bao nhiêu phần tử = 0 trong dãy
D tính tổng các phần tử chẵn trong dãy
giúp vs ạ
uses crt;
var a:array[1..1000]of integer;
i,n,dem,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=1000);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until abs(a[i])<=1000;
end;
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]=0 then inc(dem);
writeln('So phan tu bang 0 la: ',dem);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu chan la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Cho mảng gồm n số nguyên a1, a2, a3, ...., an. Hãy lập trình để đếm xem trong mảng có bao nhiêu số chính phương? Em hãy viết đoạn chương trình nhập các phần tử của mảng bài toán trên.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if trunc(sqrt(a[i]))=sqrt(a[i]) then inc(dem);
writeln(dem);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn hình
Đọc tiếp
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:8);
Writeln;
Write('Tong cua chung la ',s);
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào số nguyên dương N và dãy gồm N số nguyên A1,A2,...,AN và số nguyên k.Đếm xem trong dãy có bao nhiêu phần tử có giá trị bằng k
uses crt;
var a:array[1..100]of integer;
i,n,dem,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);
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);
readln;
end.
Đúng 1
Bình luận (1)
Viết thuật toán và chương trình nhập từ bàn phím dãy A gồm n phần tử a1, a2, a3,..an có kiểu số nguyên. Tìm và in ra màn hình các phần tử có giá trị lẻ, các phần tử có giá trị chẵn trong dãy A
Viết chương trình nhập vào số nguyên n (n<103) và dãy n số nguyên {a1, a2, ..., a3}
Yêu cầu:
- In lên mảng vừa nhập lên màn hình trên cùng 1 hàng
- In lên màn hình các phần tử có giá trị chẵn
VD: n=5 {3; 5; 8; 1; 60}
Kết quả:
3 5 8 1 60
C++ nhé, giúp e với ạ;-;
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
cout<<endl;
for (i=1;i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
Đúng 2
Bình luận (0)
viết chương trình nhập vào mảng a gồm n phần tử số nguyên a1...an đếm xem trong mảng có bao nhiêu phần tử chẵn và tích tổng các giá trị của phần tử chẵn và thông báo ra màn hình
var a:array[1..100] of integer;
i,n,S,d:byte;
begin
write(' n = '); readln(n);
for i:=1 to n do begin
write('A[',i,'] = ');
readln(A[i]);
end;
d:=0; S:=0;
for i:=1 to n do if A[i] mod 2 = 0 then begin
d:=d+1;
S:=S+A[i];
end;
write('Dãy có ',d,' phần tử là số chẵn và tổng của chúng là : S = ',S);
readln
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào số nguyên dương n và dãy a có n số nguyên a1,a2,a3,...,an. tính giá trị trung bình của các số có giá trị dương ở vị trí lẻ ra màn hình
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
dem=0;
for (i=1; i<=n; i++)
if ((a[i]>0) and (i%2==1))
{
t+=a[i];
dem++;
}
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);
return 0;
}
Đúng 0
Bình luận (0)
Bài 1/ Viết chương trình nhập từ bàn phím hai dãy số nguyên A,B gồm n phần tử (n nhập từ bàn phím và n nhỏ hơn hoặc bằng 30). Trộn 2 dãy số trên thành dãy số mới C theo nguyên tắc sau:aa1,a2,a3,..,an.bb1,b2b,b3,...,bn.ca1,b1,a2,b2,a3,b3,...,an,bn.Vd: n6. A4 5 6 1 2 3. B9 4 7 0 8 4. C4 9 5 4 6 7 1 0 2 8 3 4 .Bài 2/ Nhập vào 1 dãy số nguyên. Cho biết dãy đã sắp xếp chưa tăng dần hay giảm dần. Nếu dãy đã sắp xép hãy cho nhập số n bất kì và chèn vào dãy sao cho dãy vẫn đảm bảo được sắp xếp...
Đọc tiếp
Bài 1/ Viết chương trình nhập từ bàn phím hai dãy số nguyên A,B gồm n phần tử (n nhập từ bàn phím và n nhỏ hơn hoặc bằng 30). Trộn 2 dãy số trên thành dãy số mới C theo nguyên tắc sau:
a=a1,a2,a3,..,an.
b=b1,b2b,b3,...,bn.
c=a1,b1,a2,b2,a3,b3,...,an,bn.
Vd: n=6. A=4 5 6 1 2 3. B=9 4 7 0 8 4.
>> C=4 9 5 4 6 7 1 0 2 8 3 4 .
Bài 2/ Nhập vào 1 dãy số nguyên. Cho biết dãy đã sắp xếp chưa tăng dần hay giảm dần. Nếu dãy đã sắp xép hãy cho nhập số n bất kì và chèn vào dãy sao cho dãy vẫn đảm bảo được sắp xếp (không được sắp xếp sau khi chèn thêm). Nếu dãy chưa sắp xếp thì sắp xếp lại dãy tăng dần.
Vd: Dữ liệu vào: 5 6 7 8 9; n=6.
Dữ liệu ra: dãy đã được sắp xếp tăng dần và sau khi chèn thêm n là: 5 6 6 7 8 9.
" giúp e vs 19h 29/7 e nộp r "
Bài 1:
Uses crt;
var i,n,j:integer;
a,b,c:array[1..100000] of integer;
Begin
clrscr;
readln(n);
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do readln(b[i]);
j:=0;
for i:= 1 to n do
Begin
inc(j);
c[j] := a[i];
inc(j);
c[j] := b[i];
end;
for i:= 1 to j do write(c[i],' ');
readln;
end.
Đúng 1
Bình luận (1)