Question

viết một chương trình nhập từ bàn phím chiều cao của các bạn học sinh của lớp (40 học sinh) sau đó in ra màn hình và thông báo bạn thấp nhất bạn cao nhất (giúp mình với mọi người ơi)

Answer 1

Program hotrotinhoc_hoc24;

var a: array[1..40] of real;

i,n: integer;

max,min: real;

begin

for i:=1 to 40 do

begin

write('Nhap ban thu ',i,': '); readln(a[i]);

end;

max:=0; min:=32000;

for i:=1 to 40 do

begin

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

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

end;

writeln('Chieu cao cua ban thap nhat la : ',min:1:2);

write('Chieu cao cua ban cao nhat la : ',max:1:2);

readln

end.