Nhập một dãy số đến khi gặp số 0 thì dừng lại . Tính trung bình cộng các số dương và trung bình cộng các số âm
Những câu hỏi liên quan
Viết chương trình nhập vào 1 mảng gồm 10 phần tử hãy:
1. Hiển thị dãy vừa nhập trên 1 hang.
2. Tính tổng các phần tử trong mảng.
3. Tính trung bình cộng các phần tử trong mảng.
4. Tính tổng các số âm và số dương trong mảng.
5. Tính tổng các số chẵn và số lẻ trong mảng.
6. Đếm các số âm, số dương, số chẵn, số lẻ trong mảng.
program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to 10 do write(a[i],', ');
writeln;
s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
for i:=1 to 10 do begin
s := s + a[i];
if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
else begin sl := sl + a[i]; dl := dl + 1 end;
end;
writeln('Tong cac phan tu trong mang la ',s);
writeln('Trung binh cong cac phan tu trong mang la ',s/10);
writeln('Tong cac so am la ',sa);
writeln('Tong cac so duong la ',sd);
writeln('Tong cac so chan la ',sc);
writeln('Tong cac so le la ',sl);
writeln('So cac so am la ', da);
writeln('So cac so duong la ', dd);
writeln('So cac so chan la ', dc);
writeln('So cac so le la ', dl);
readln
end.
Đúng 0
Bình luận (0)
có một dãy số nhà mà trung bình cộng của tất cả các số trong dãy số đó bằng 159 . một trong các số đó là số 2014 . sau khi bỏ đi số 2014 thì trung bình cộng các số chỉ còn lại là 106 . hỏi lúc đầu dãy số đó có bao nhiêu số ?
Viết chương trình nhập số n nguyên dương và dãy số thực B1, B2,... Bn. Và số thực x ( theo C++)
- Xuất dãy vừa nhập;
- Tìm giá trị lớn nhất trong dãy;
- Tính trung bình cộng các phần tử lớn hơn số thực x
#include <bits/stdc++.h>
using namespace std;
double b[100],x,ln,t;
int i,n,dem;
int main()
{
cin>>n;
ln=-1e10;
for (i=1; i<=n; i++)
{
cin>>b[i];
ln=max(ln,b[i]);
}
for (i=1; i<=n; i++)
cout<<b[i]<<" ";
cout<<endl;
cout<<ln<<endl;
t=0;
dem=0;
for (i=1; i<=n; i++)
if (a[i]>x)
{
t=t+a[i];
dem++;
}
cout<<fixed<<setprecision(2)<<t/(dem*1.0);
return 0;
}
Đúng 0
Bình luận (0)
viết chương trình nhập dãy n, đến các số dương của dãy và tính trung bình các số dương
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem,t;
int main()
{
cin>>n;
dem=0;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0)
{
dem++;
t=t+x;
}
}
cout<<"So so duong la: "<<dem<<endl;
cout<<"Trung binh cong cac so duong la: "<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);
return 0;
}
Đúng 0
Bình luận (0)
Nhập vào một dãy NN số nguyên A1,A2,...,AN(N≤10000,|Ai|≤10000000000).Hãy in ra màn hình Trung bình cộng các phần tử âm.Dữ liệu vào:Dòng đầu tiên chứa số NNDòng thứ 2 chứa NN số nguyên A1,A2,...,ANKết quả:In ra Trung bình cộng các phần tử âm lấy 2 số lẻ sau phần thập phân, nếu trong dãy không có số âm nào thì in ra −1.Sample InputCopy77 6 -4 19 -22 51 -82Sample OutputCopy-36.00Lưu ý dùng C++
Đọc tiếp
Nhập vào một dãy NN số nguyên A1,A2,...,AN(N≤10000,|Ai|≤10000000000).
Hãy in ra màn hình Trung bình cộng các phần tử âm.
Dữ liệu vào:
Dòng đầu tiên chứa số NN
Dòng thứ 2 chứa NN số nguyên A1,A2,...,AN
Kết quả:
In ra Trung bình cộng các phần tử âm lấy 2 số lẻ sau phần thập phân, nếu trong dãy không có số âm nào thì in ra −1.
Sample Input
Copy
7
7 6 -4 19 -22 51 -82
Sample Output
Copy
-36.00
Lưu ý dùng C++
Trung bình cộng của 3 số là 150 Nếu gặp số thứ nhất lên 3 lần giữ nguyên các số kia thì trung bình cộng của 3 số khi đó là 162 nếu số thứ hai gấp lên 2 lần và giữ nguyên các số còn lại thì trung bình cộng của 3 số khi đó là 184 Tìm ba số đó
Nhanh mình tick trước nhé
Bài giải:
tổng 3 số là:
150x3=450
tổng 3 số khi gấp số thứ nhất lên 3 lần là:
163x3=489
tổng 3 số khi số thứ hai gấp lên 2 lần là:
184x2=368
Đáp số: 369
Viết chương trình nhập vào một dãy số nguyên cho đến khi gặp số 0 thì dừng lại. Tính tổng các số chẵn, thông báo ra màn hình.
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap so: ');
readln(n);
if n mod 2=0 then t:=n else t:=0;
while n<>0 do
begin
write('Nhap so: ');
readln(n);
if n mod 2=0 then t:=t+n;
end;
write('Ket qua la: ',t);
readln
end.
Đúng 0
Bình luận (0)
viết ct nhập 1 dãy số gồm n số từ bàn phím, in ra dãy vừa nhập, in ra số lẻ, chẳn trong dãy, tính tổng các số chẳn và lẻ, tính trung bình cộng các số
uses crt;
var a:array[1..100]of integer;
n,i,t1,t2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln(t1);
writeln(t2);
readln;
end.
Đúng 0
Bình luận (0)
bài 1 :nhập n số nguyên đến khi nhập 0 thì ngưng. In tổng và trung bình tổng các số đã nhập
bài 2: nhập dãy số nguyên n phần tử. In các số chẳn( hoặc lẻ) trong dãy