Cho mảng một chiều có 100 phần tử, các phần tử có kiểu số thực, và số nguyên K a/ Đếm các phần tử có giá trị bằng K b/ Tính tổng các phần tử dương và âm của mảng
Những câu hỏi liên quan
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
Viết chương trình thực hiện các tác vụ cho mảng số nguyên gồm n phần tử (n<=100) .
1.Tính tổng số dương, tổng các số âm .
2.Thay thế các phần tử âm có trong mảng bằng giá trị 0 .
3.Tìm các số nguyên tố trên mảng C++
1:
#include <bits/stdc++.h>
using namespace std;
long long t1,t2,i,n,x;
int main()
{
cin>>n;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) t1=t1+x;
else t2=t2+x;
}
cout<<t1<<" "<<t2;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình vào 1 mảng số nguyên phải thực hiện các công việc: a). Đếm xem có bao nhiêu phần tử dương và phần tử âm trong mảng b). Tính và đưa ra màng hình tổng các số dương và tổng câc số âm
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem1,dem2,t1,t2;
int main()
{
cin>>n;
dem1=0;
dem2=0;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0)
{
dem1++;
t1+=x;
}
if (x<0)
{
dem2++;
t2+=x;
}
}
cout<<dem1<<" "<<dem2<<endl;
cout<<t1<<" "<<t2;
return 0;
}
Đúng 0
Bình luận (0)
Chương trình nhập mảng một chiều gồm n<=100 kiểu nguyên rồi thực hiện
a.đếm số lượng phần tử có trong mảng
b.tính tổng các phần tử dương có trong mảng
c.tính trung bình các phần tử dương trong mảng
d.tìm vị trí đầu tiên của k với k nhập từ bàn phím
e.đếm số lượng phần tử là số nguyên tố dương trong mảng
Mọi người làm gộp thành 1 bài ạ!
def dem_phan_tu(mang):
return len(mang)
def tinh_tong_duong(mang):
tong = 0
for num in mang:
if num > 0:
tong += num
return tong
def tinh_trung_binh_duong(mang):
tong = tinh_tong_duong(mang)
so_luong_duong = 0
for num in mang:
if num > 0:
so_luong_duong += 1
if so_luong_duong > 0:
trung_binh = tong / so_luong_duong
return trung_binh
else:
return 0
def tim_vi_tri_dau_tien(mang, k):
for i in range(len(mang)):
if mang[i] == k:
return i
return -1
def la_so_nguyen_to(n):
if n <= 1:
return False
for i in range(2, int(n**0.5) + 1):
if n % i == 0:
return False
return True
def dem_so_nguyen_to(mang):
count = 0
for num in mang:
if num > 0 and la_so_nguyen_to(num):
count += 1
return count
n = int(input("Nhập số phần tử của mảng: "))
mang = [ ]
for i in range(n):
num = int(input(f"Nhập phần tử thứ {i+1}: "))
mang.append(num)
print("Số lượng phần tử trong mảng là:", dem_phan_tu(mang))
print("Tổng các phần tử dương trong mảng là:", tinh_tong_duong(mang))
print("Trung bình các phần tử dương trong mảng là:", tinh_trung_binh_duong(mang))
k = int(input("Nhập giá trị k: "))
vi_tri_dau_tien = tim_vi_tri_dau_tien(mang, k)
if vi_tri_dau_tien != -1:
print(f"Vị trí đầu tiên của {k} trong mảng là:", vi_tri_dau_tien)
else:
print(f"{k} không có trong mảng.")
print("Số lượng phần tử là số nguyên tố dương trong mảng là:", dem_so_nguyen_to(mang))
Đúng 2
Bình luận (0)
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)
Viết chương trình nhập vào số nguyên dương k, N (N≤1000), và các phần tử của mảng từ
A 1 ,…,A N là các số nguyên trong phạm vi từ ±5000. Tìm và xuất ra màn hinh
a) Có bao nhiêu phần tử có giá trị bằng k.
b) Vị trị của các phần tử có giá trị bằng k. Tính tổng các số có giá trị bằng k.
Uses crt;
Var i,k,n,bk,tong: integer;
a: array[1..1000] of integer;
Begin
write('Nhap K: '); readln(k);
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
{câu a}
For i:=1 to n do
if a[i]=k then bk:=bk+1;
writeln('Co so phan tu bang k la:',k);
{câu b}
For i:=1 to n do
if a[i]=k then
begin
write(i,' ');
tong:=tong+a[i];
end;
write('. Tong la:',tong);
readln
end.
Đúng 2
Bình luận (0)
uses crt;
var k,n,tong,d,i:longint;a:array[1..1000]of longint;
begin
clrscr;
write('n=');readln(n);
write('k=');readln(k);
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]=k)then inc(d);
writeln('so phan tu bang voi:',k,' la:',d);
write('cac so co vi tri bang voi:',k,' la:');
tong:=0;
for i:=1 to n do if(a[i]=k)then
begin
write(i,' ');
tong:=tong+a[i];
end;
write('tong cua cac so bang voi:',k,' la:',tong);
readln;
end.
Đúng 1
Bình luận (0)
Cho mảng A gồm N phần tử kiểu nguyên có trong tệp DL.pas lập trình công việc và lưu vào QK.pas
a: đếm số phần tử lẻ chia hết cho 7
b: tính tổng các phần tử thuộc [10,30]
c: tính số các phần tử âm lẻ
d: đếm các số là số nguyên tố có trong dãy
Mn làm hộ em cs ạ
Xem chi tiết
const fi='dl.pas'
fo='qk.pas'
var f1,f2:text;
i,n,dem,t,dem1,dem2,kt,j:integer;
a:array[1..100]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
dem:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 7=0) then inc(dem);
t:=0;
for i:=1 to n do
if (10<=a[i]) and (a[i]<=30) then t:=t+a[i];
dem1:=0;
for i:=1 to n do
if (a[i]<0) and (a[i] mod 2<>0) then inc(dem1);
dem2:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then inc(dem2);
end;
writeln(f2,'So phan tu le chia het cho 7 la: ',dem);
writeln(f2,'Tong cac phan tu thuoc [10,30] la: ',t);
writeln(f2,'So cac phan tu am le la: ',dem1);
writeln(f2,'So phan tu la so nguyen to la: ',dem2);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
viết chương trình nhập mảng một chiều gồm n phần tử n100 kiểu nguyên rồi thực hiện (nhập từ bàn phím hoặc nhập ngẫu nhiên)a. Đếm số lượng phần tử dương cho kết quả ra màn hìnhb. Tính tổng các phần tử dương trong mảngc. Tính trung bình các phần tử trong mảngd. Tính trung bình các phần tử dương trong mảnge. Tìm vị trí đầu tiên cảu phần tử k với k nhập từ bàn phímf. Tìm vị trí phần tử k với k nhập từ bàn phím, nếu có nhiều phần tử k thì hiển thị ra màn hình tất cả vị trí phần tử k đó.g. Đếm số lượn...
Đọc tiếp
viết chương trình nhập mảng một chiều gồm n phần tử n<=100 kiểu nguyên rồi thực hiện (nhập từ bàn phím hoặc nhập ngẫu nhiên)
a. Đếm số lượng phần tử dương cho kết quả ra màn hình
b. Tính tổng các phần tử dương trong mảng
c. Tính trung bình các phần tử trong mảng
d. Tính trung bình các phần tử dương trong mảng
e. Tìm vị trí đầu tiên cảu phần tử =k với k nhập từ bàn phím
f. Tìm vị trí phần tử =k với k nhập từ bàn phím, nếu có nhiều phần tử =k thì hiển thị ra màn hình tất cả vị trí phần tử =k đó.
g. Đếm số lượng phần tử là nguyên tố trong mảng.
h. Kiểm tra mảng vừa nhập có phải là cấp số cộng hay không?
i. Sắp xếp mảng theo thứ tự tăng dần các phần tử và hiển thị ra màn hình mảng tăng đó
uses crt;
var a:array[1..100]of integer;
i,n,dem,t,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('So luong phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);
readln;
end.
Đúng 2
Bình luận (0)
Cho mảng B gồm n (n ≤ 100) phần tủ nguyên. Viết chương trình thực hiện các yêu cầu sau:
a. Đếm xem trong mảng có bao nhiêu phần tử âm, phần tử dương.
b. Tính trung cộng các phần tử khác 0 trong mảng.
c. Đưa ra màn hình giá trị nhỏ nhất cùng với chỉ số.
uses crt;
var b,a:array[1..100]of integer;
i,n,dem,dem1,dem2,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if b[i]<0 then inc(dem);
if b[i]>0 then inc(dem1);
end;
writeln('So phan tu am la: ',dem);
writeln('So phan tu duong la: ',dem1);
t:=0;
for i:=1 to n do
if b[i]<>0 then t:=t+b[i];
writeln('Trung binh cac phan tu khac 0 trong mang la: ',t/(dem+dem1):4:2);
min:=b[1];
for i:=1 to n do
if min>b[i] then min:=b[i];
dem2:=0;
for i:=1 to n do
if min=b[i] then
begin
inc(dem2);
a[dem2]:=i;
end;
writeln('Gia tri nho nhat la: ',min);
writeln('Chi so la: ');
for i:=1 to dem2 do
write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (1)