Var a:array:[1..1000] of real;

i,n:integer;

max,min,s,tb:real;

Begin

Write('Nhap so luong hoc sinh: ');readln(n);

For i:=1 to n do

Begin

Write('Nhap chieu cao hs thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tb:=s/n;

max:=a[1];min:=a[1];

For i:=2 to n do

Begin

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

if a[i] < min then min:=a[i];

end;

writeln('Chieu cao lon nhat la ',max:10:1);

Writeln('Chieu cao nho nhat la ',min:10:1);

Write('Chieu cao trung binh la ',tb:10:1);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

double a[1000],t;

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

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

return 0;

}

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

if max<cao[i] then max:=cao[i];

if min>cao[i] then min:=cao[i];

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

#include<iostream>

using namespace std;

int main() {

    int a, b, c, d, e;

    cin >> a >> b >> c >> d >> e;

    int g = a + b + c + d + e;

    cout << g / 5;

    return 0;

}

tham khảo

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

if max<cao[i] then max:=cao[i];

if min>cao[i] then min:=cao[i];

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

Tham khảo

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

if max<cao[i] then max:=cao[i];

if min>cao[i] then min:=cao[i];

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

Bài 1

Var a:array:[1..1000] of real;

i,n:integer;

max,min:real;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap chieu cao ban thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

min:=a[1];

For i:=2 to n do 

begin

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

if a[i] < min then min:=a[i];

end;

writeln('Ban cao nhat la ',max:10:2);

write('Ban thap nhat la ',min:10:2);

Readln

End.

a) Tính chiều cao trung bình của học sinh nam

Cách 1 : Sử dụng bảng phân bố tần số ghép lớp :

\(\overline{x}=\dfrac{1}{60}\left(5.140+9.150+19.160+17.170+10.180\right)\)

\(\overline{x}=163\)

Cách 2 : Sử dụng bảng phân bố tần suất ghép lớp :

\(\overline{x}=\dfrac{1}{100}\left(8,33.140+15.150+31,67.160+28,33.170+16,67.180\right)\)\(\overline{x}=163\)

Tính chiều cao trung bình của học sinh nữ:

Cách 1 : Sử dụng bảng phân bố tần số ghép lớp \(\overline{x}=\dfrac{1}{60}\left(8.140+15.150+16.160+14.170+7.180\right)\)

\(\overline{x}=159,5\)

Cách 2 : Sử dụng bảng phân bố tần suất ghép lớp :

\(\overline{x}=\dfrac{1}{100}\left(13,33.140+25.150+26,67.160+23,33.170+11,67.180\right)\)

\(\overline{x}=159,5\)

b) Vì \(\overline{x}_{nam}=163>\overline{x}_{nữ}=159,5\) nên suy ra học sinh ở nhóm nam cao hơn học sinh ở nhóm nữ

c) \(\overline{x}=\left(60.159,5+60.163\right)\dfrac{1}{2}\approx161\left(cm\right)\)

Chiều cao của em và một số bạn trong lớp:

Em: 154 cm

Linh: 149 cm

An: 156 cm

Bảo: 160 cm

Ngọc: 154 cm

Mai: 151 cm.

+) Một số bạn cao bằng em là: Ngọc

+) Một số bạn thấp hơn em là: Linh, Mai

+) Một số bạn cao hơn em là: An, Bảo