Viết chương trình và thuật toán tìm chiều cao cao nhất của lớp em?? heppmee

Thuật toán:

B1: Nhập số lượng học sinh và chiều cao mỗi học sinh

B2: max:=0;  i:=1;

B3: Nếu i>n thì tới B5

B4: Nếu ccao[i]>max then max:=ccao[i];   i:=i+1;  Quay lại B3

B5: In max và kết thúc.

Chương trình:

program tim_chieucao;

uses crt;

var ccao:array[1..1000] of integer;

     n,i,max:integer;

BEGIN

       clrscr;

       write(‘Nhap so hoc sinh: ‘);  readln(n);

       max:=0;

       for i:=1 to n do

              begin

                     write(‘Nhap chieu cao hoc sinh thu ‘,i,’: ‘);   readln(ccao[i]);

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

              end;

       write(‘Chieu cao cao nhat la: ‘,max);

       readln;

end.