Question

Viết chương trình nhập vào chiều cao của 5 người xuất ra người cao nhất và người thấp nhất

Answer 1

Program asd;
Uses crt;
Var a:array[1..6] of Interger;
Begin
c:=0;
t:=0;
For i:=1 to 5 do
Begin
Write("Nhap chieu cao nguoi thu nhat (m) : ");
Readln(a[i]);
if a[i]>c then c:=a[i];
If a[i]<t then t:=a[i];
End;

Writeln("Chieu cao nguoi cao nhat la: ",c," m");

Writeln("Chieu cao nguoi thap nhat la: ",t," m");

Readln;

End.

Chúc bạn thi tốt