uses crt;

var B : array [1 .. 100] of integer;

i, n, m : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap so thu 1 : '); readln(B[1]);

m := B[1]; i := 2;

while i <= n do

    begin

        write('Nhap so thu ', i ,' : '); readln(B[i]);

        if B[i] > m then m := B[i];

        i := i + 1;

    end;

write('So lon nhat : ', m);

readln

end.

Uses crt;

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

i,n,max,k: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

write ('nhap a[',i,']: ');  readln (a[i]);

end;

max:=a[1];

k:=1;

for i:=2 to n do

if a[i]>max then begin k:=i; max:=a[i]; end;

writeln ('so lon nhat la a[',k,']=',max);

readln;

end.

$#Trumtinhoc$