: Uses crt; Var i: integer; n: integer; max: integer; min: integer; a: array[1..100] of integer; Begin Clrscr; Write(‘ Nhap do dai cua day so, n= ‘); Readln(n); Writeln(‘Nhap cac phan tu cua day so: ‘); For i:= 1 to n do Begin Write(‘a[‘, i, ‘]= ‘); Readln(a[i]); End; max:= a[1]; min:= a[1]; For i:= 2 to n do Begin If max < a[i] then max:= a[i]; If min > a[i] then min:= a[i]; End; Writeln(‘So lon nhat la max= ‘, max)  min=,Readln; end. 

Program Hotboy;

Uses crt;

Var a:array[1..100] of integer ;

I,n,s: longint;

Begin

Clrscr;

Write('nhap so phan tu cua mang'); readln(n);

For i:=1 to n do 

Begin

Write('A[',i,']'); readln(A[i]);

End;

S:=A[1];

For i:=1 to n do 

If A[i] >S then S:=A[i];

Write('gia tri lon nhat trong mang la',S);

Readln

End.