Question

Viết CT nhập chiều cao của bạn trong lớp in ra màn hình bạn cao nhất
Giúp mình với mai ktra rồi ạ!!

Answer 1

Program HOC24;

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

i,n: integer;

max: real;

begin

write("Nhap so ban trong lop: "); readln(n);

for i:=1 to n do

begin

write("Nhap chieu cao cua ban thu ",i,": "); readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

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

write("Ban co nhat la ban thu: ");

for i:=1 to n do if a[i]=max then write(i,"");

readln

end.

Answer 2

helpp