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.

#include <bits/stdc++.h>

using namespace std;

double x,tb;

int n,i;

int main()

{

cin>>n;

tb=0;

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

{

cin>>x;

tb+=x;

}

cout<<fixed<<setprecision(2)<<tb/n;

return 0;

}

24 tháng 3 2021

Bạn ơi giúp mình với chiều nay mình thi rồi

 

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,tb:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

11 tháng 10 2021

2: 

#include <bits/stdc++.h>

using namespace std;

int main()

{

string st;

int a;

cin>>st;

cin>>a;

cout<<"Xin chao "<<st<<endl;

cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";

return 0;

}

6 tháng 5 2021

Var a:array[1..100] of longint;

tb:real;

i,n:integer;

s:longint;

begin

     write('Nhap vao so luong so nguyen '); readln(n);

     s:=0;

     for i:=1 to n do

     begin

          write('Nhap vao so thu ',i,' = ');readln(a[i]);

          s:=s+a[i];

     end;

     tb:=s/n;

     writeln('Gia tri trung binh cua mang do la ',tb:10:2);

     writeln('Cac phan tu lon hon gia tri trung binh la');

     for i:=1 to n do

     begin

          if a[i] > tb then write(a[i]:10);

     end;

readln;

end.

6 tháng 5 2021

cảm ơn nhiều ạ

uses crt;

var a:array[1..10]of integer;

i,t:integer;

begin

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to 10 do 

  t:=t+a[i];

writeln('Tong cua day la: ',t);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

28 tháng 4 2023

Bài 23

var a:array[1..1000] of integer;

i,n:integer;

s,tbc:real;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

28 tháng 4 2023

var a:array[1..1000] of integer;

i,n,max:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

if a[i] > max then max:=a[i];

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n<18) cout<<"Thieu nien";

else if ((18<=n) and (n<=39)) cout<<"Thanh nien";

else if ((40<=n) and (n<=60)) cout<<"Trung nien";

else cout<<"Lao nien";

return 0;

}

11 tháng 5 2022

Var a:array[1..200] of integer;

i,n,s:integer;

tbc:real;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.