K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

29 tháng 11 2021

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.

9 tháng 12 2017

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.

2 tháng 2 2021

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.

1 tháng 1 2021

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.

15 tháng 3 2022

#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;

}

1 tháng 3 2022

#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;

}

26 tháng 2 2023

# Nhap mang

arr = [ ]

for i in range(10):

     arr.append(int(input('Nhap phan tu: ')))

 

# Tinh va xuat ra tong cac phan tu le trong mang tong_cac_phan_tu_le = 0

for x in arr:

     if x % 2 != 0:

          tong_cac_phan_tu_le += x

print('Tong cac phan tu le trong mang la:', tong_cac_phan_tu_le)

 

# Nen va xuat ra ngoai man hinh so phan tu duong trong mang so_phan_tu_duong = 0

for x in arr:

     if x > 0:

          so_phan_tu_duong += 1

print('So phan tu duong trong mang la:', so_phan_tu_duong)

 

# Tinh va xuat ra man hinh trung binh cong cac phan tu trong mang tong_phan_tu = 0

for x in arr:

          tong_phan_tu += x

trung_binh_cong = tong_phan_tu / len(arr)

print('Trung binh cong cac phan tu trong mang la:',trung_binh_cong)

 

# Tim va xuat ra man hinh gia tri va vi tri cua cac phan tu nho nhat trong mang

min_phan_tu = arr[0]

vi_tri_min_phan_tu = 0

for i in range(1, len(arr)):

     if min_phan_tu > arr[i]:

          min_phan_tu = arr[i]

           vi_tri_min_phan_tu = i

print('Gia tri cua phan tu nho nhat trong mang la:', min_phan_tu)

print('Vi tri cua phan tu nho nhat trong mang la:', vi_tri_min_phan_tu)

      
30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,t,dem;

int main()

{

cin>>n;

t=0;

dem=0;

for (i=1; i<=n; i++)

if (i%3==0)

{

t=t+i;

dem++;

}

cout<<t<<endl;

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}