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.
