Program Kookie;
uses crt;
type ArrInt = array[ 1 .. N] of integer;
var
A: ArrInt;
N, i, max :integer;
begin
clrscr;
writeln( ' A [',i,'] = ');
readln(A[i]);
A[i] := Max;
for i:= 1 to N do
if A[i] < A[i+1] then
Max := A[i+1];
writeln(' gia tri lon nhat la : , ' Max);
readln
end .
< mong giúp đc bạn>