Ai giup mk với
Nhập vào số nguyên dương n. Tinh trung bình cộng các số chẵn và trung bình cộng các số lẻ
Hepl me
Những câu hỏi liên quan
Viết chương trình nhập vào một mảng gồm N số nguyên. Tính và thông báo các số chẵn, tổng số và trung bình cộng của các số chẵn đó
Tham khảo
uses crt;
var n,i,ta,td,d1,d2:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
td:=0;
d1:=0;
for i:=1 to n do
if a[i]>0 then
begin
td:=td+a[i];
inc(d1);
end;
writeln('Trung binh cong cac so duong la: ',td/d1:4:2);
d2:=0;
ta:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(d2);
ta:=ta+a[i];
end;
writeln('Trung binh cong cac so am la: ',ta/d2:4:2);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số nguyên n<=100
Tính trung bình cộng các phần tử
Tổng các số lẻ
Program HOC24;
var i,n: byte;
a: array[1..100] of integer;
tbc: real;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
tbc:=0; t:=0;
end;
for i:=1 to n do
begin
tbc:=tbc+a[i];
if a[i] mod 2=1 then t:=t+a[i];
end;
writeln('Trung binh cong cac phan tu la: ',btc/n:5:2);
write('Tong cac so le la :',t);
readln
end.
Đúng 0
Bình luận (0)
nhập vào từ bàn phím n số nguyên .tính trung bình cộng các số lẻ trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,dem,t: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] mod 2<>0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('Trung binh cong cac so le la: ',t/dem:4:2);
readln;
end.
Đúng 2
Bình luận (0)
Giúp mk với ạ
Nhập mảng một chiều các số nguyên không quá 100 phần tử .
Tính trung bình bình cộng các phần tử ở vị trí lẻ.
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
n,dem,i,t: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 i mod 2=1 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('Trung binh cong cac phan tu o vi tri le la: ',t/dem:4:2);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập số n, nếu n là số chẵn thì tính tổng các số chẵn từ 1 tới n, nếu n là số lẻ thì tính trung bình cộng các số lẻ từ 1 tới n.
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
if (n%2==0)
{
t=0;
for (i=1; i<=n; i++) if (i%2==0) t+=i;
}
else
{
t=0;
for (i=1; i<=n; i++) if (i%2!=0) t+=i;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập số n, nếu n là số chẵn thì tính tổng các số chẵn từ 1 tới n, nếu n là số lẻ thì tính trung bình cộng các số lẻ từ 1 tới n
tk
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var n,i,t,dem:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then
begin
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln(t);
end
else
begin
t:=0;
dem:=0;
for i:=1 to n do
if i mod 2=1 then
begin
t:=t+i;
dem:=dem+1;
end;
writeln(t/dem:4:2);
end;
readln;
end.
Đúng 0
Bình luận (0)
Tìm trung bình cộng của các số lẻ nhỏ hơn 100
Tìm trung bình cộng của các số chẵn nhỏ hơn 100
HELP ME
Dãy số các số lẻ nhỏ hơn 100 là : 1; 3; 5 ;... ; 99
Có tất cả số số hạng là :
( 99 - 1 ) : 2 + 1 = 50 ( số hạng )
Trung bình cộng của các số lẻ nhỏ hơn 100 là :
( 100 . 50 ) : 2 = 2500
Đáp số :............
Đúng 0
Bình luận (0)
Dãy số các số chẵn nhỏ hơn 100 là : 0; 2; 4;... ;98
Có tất cả số số hạng là :
( 98 - 0 ) : 2 + 1 = 50 ( số hạng )
Trung bình cộng của các số chẵn nhỏ hơn 100 là :
( 98 . 50 ) : 2 = 2450
Đáp số :...........
Đúng 0
Bình luận (0)
Chương trình C++
Nhập từ bản phim dãy gồm n số nguyên (n<=100).
* In ra màn hình dãy các số chẵn trong dãy đã nhập
* In ra màn hình giá trị trung bình cộng của dây các số chân từ dãy đã nhập
• In ra màn hình tổng các số lẻ và chia hết cho 3
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[1000],t,dem,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
cout<<endl;
t=0;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%2==0)
{
t=t+a[i];
dem++;
}
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0)<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2!=0 || a[i]%3==0) t1+=a[i];
cout<<t1;
return 0;
}
Đúng 0
Bình luận (0)
Ai giup mk với
Viết Pt nhập vào số nguyên dương n. Tính trung bình cộng các số chẵn và trung bình cộng các số lẻ từ 1 đến n
Có thể giải thích một tẹo cho mk khi giải xog nha, tẹo thoi cảm ơn
program bai_tap;
uses crt;
var n,i,dem1,dem2,s1,s2:byte;
tb1,tb2:real;
begin
clrscr;
write('nhap n: ');{nhap gia tri cua n VD: n= 10}
readln(n);
for i:= 1 to n do
if i mod 2 = 0 then {so chan la so chia het cho 2 hay chia 2 du 0}
begin
dem1:=dem1+1; {tinh xem co bao nhieu so mod 2 = 0}
s1:=s1+i; {tinh tong cac so chan}
end
else { neu i mod 2 khac 0 thi...(so le)}
begin
dem2:=dem2+1;
s2:=s2+i;
end;
tb1:= s1/dem1; {tinh trung binh cong}
tb2:= s2/dem2;
writeln('trung binh cong cac so chan: ',tb1:4:2); {xuat ra trung binh cong}
writeln('trung binh cong cac so le: ',tb2:4:2);
readln
end.
Đúng 0
Bình luận (0)