Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyen Tan Dat

viết chương trình nhập chiều cao của các bạn trong lớp ,in ra màn hình chiều cao của các bạn trong lớp , chiều cao cao nhất , chiều cao thấp nhất và trung bình của lớp .Biết rằng số lượng học sinh và chiều cao được nhập từ bàn phím .(sau mỗi giá trị đc in chỉ lấy 1 chữ số thập phân). 

Cho mình biết đáp án vs :Dhihi

Kiều Vũ Linh
19 tháng 5 2023 lúc 7:45

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.


Các câu hỏi tương tự
Phạm Tèo
Xem chi tiết
Phạm An Khánh
Xem chi tiết
Linh Da
Xem chi tiết
Finn
Xem chi tiết
Đặng Minh Hiếu
Xem chi tiết
Ship couple
Xem chi tiết
Bun _
Xem chi tiết
Trần Thị Hà Trang
Xem chi tiết
Nguyễn Phúc
Xem chi tiết