Uses crt;

var i,max: longint;

      vtmax:  byte;

      a: array[1..200] of longint;

begin

clrscr;

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

for i:=1 to n do read(a[i]);

for i:=1 to  n do 

 if i=1 then max:=a[i] 

  else if max<a[i] then 

    begin 

      max:=a[i];  vtmax:=i;

    End;

a[vtmax]:=low(longint); 

for i:=1 to n do 

  if i=1 then max:=a[i] 

    else if max<a[i] then max:=a[i];

writeln;

write(max);

readln;

end.

cách làm: tìm số lớn nhất trong dãy ròi biến số đó thành số bé nhất, ròi tìm số lớn nhất lần 2

program tfkgujhkjg;

uses crt;

var i, b, n: integer

a:array[1..200] of integer;

begin clrscr;

write('co bao nhieu so ma ban muon nhap: '); readln(n);

for i: 1 to n do

begin

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

end;

b:= a[1]

for i: 1 to n do

begin

if b < a[i] then b:=a( [i] ) ;

end;

write('so lon nhat la:', b);

end;