Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Cai Gia Tường Vy 45_8.2

 Viết chương trình nhập vào chiều cao của 5 bạn trong lớp. Tính chiều cao trung bình của 5 bạn đó. In kết quả tính toán được ra màn hình

Thuy Bui
18 tháng 11 2021 lúc 19:24

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.

๖ۣۜHả๖ۣۜI
18 tháng 11 2021 lúc 19:29

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.


Các câu hỏi tương tự
43-8.1 Lam trường
Xem chi tiết
thái việt thành
Xem chi tiết
Nguyễn Minh Trường
Xem chi tiết
thiện nhân
Xem chi tiết
Bùi Trần Nghĩa Hưng
Xem chi tiết
Anh Hoàng
Xem chi tiết
nguyễn văn đức
Xem chi tiết
Hà Nguyễn Thái Bình
Xem chi tiết
Nguyễn Tuấn Anh
Xem chi tiết