K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
TD
23 tháng 6 2018
program chieucao;
uses crt;
var : do,n,i,max,min:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so hoc sinh trong lop:');readln(n);
for i:=1 to n do begin
write('Nhap chieu cao cua hoc sinh thu ',i,':');readln(a[i]); end;
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;
do:=max-min;
writeln('Do chenh lech chieu cao cua ban cao nhat va thap nhat la:',do);
readln
end.