Viết ctr nhập chiều cao hs của 1 lớp, in ra màn kình độ lệch chiều cao của bạn cao nhất, bạn thấp nhất so với chiều cao trung bình của cả lớp.
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
#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;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
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;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
a = [ ]
n = int(input('Nhập số lượng học sinh: '))
# Nhập thông tin học sinh
for i in range(n):
name = input('Tên học sinh: ')
height = float(input('Chiều cao: '))
a.append([name, height])
# Tìm học sinh có chiều cao lớn nhất và bé nhất
max_height = 0
min_height = float('inf')
max_name = ''
min_name = ''
for i in range(n):
if a[i][1] > max_height:
max_height = a[i][1]
max_name = a[i][0]
if a[i][1] < min_height:
min_height = a[i][1]
min_name = a[i][0]
# In ra bạn có chiều cao lớn nhất, bé nhất
print('Học sinh có chiều cao lớn nhất là:', max_name, 'với chiều cao', max_height, 'm')
print('Học sinh có chiều cao bé nhất là:', min_name, 'với chiều cao', min_height, 'm')
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
double a[100];
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]>=1.5) cout<<fixed<<setprecision(2)<<a[i]<<" ";
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
vì gắn trước max, min là giá trị thứ 1 của dãy nên là có thể thay giá trị đầu của vòng lặp cuối thành 2 để rút gọn bớt quá trình lặp (nhưng mà để vậy cũng chẳng sao, vì máy tính vèo cái là xong :v)
Cảm ơn bạn vì đã giải nghĩa những câu lệnh đó giúp các bạn khác(Trừ mình và cô Minh Lệ)
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a:array[1..60[of real;
i,n:integer;
begin
clrscr;
write('Nhap so ban:'); readln(n);
for i:=1 to n do
begin
write('Chieu cao cua ban thu ',i,' la: '); readln(a[i]);
end;
for i:=1 to n do
writeln('Ban thu ',i,' cao ',a[i],'m');
readln;
end.
program chieucao;
uses crt;
var : do,n,i,max,min:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so hoc sinh trong lop:');readln(n);
for i:=1 to n do begin
write('Nhap chieu cao cua hoc sinh 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;
do:=max-min;
writeln('Do chenh lech chieu cao cua ban cao nhat va thap nhat la:',do);
readln
end.