Viết chương trình pascal nhập vào 1 dãy số gồm N phần tử. Tìm phần tử lớn nhất của dãy và đổi chỗ phần từ đó về vị trí đầu của dãy.

uses crt;
var a:array[1..1000]of longint;i,n,tam,max,vt:longint;
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];
  vt:=1;
  for i:=2 to n do if(a[i]>max)then
        begin
         max:=a[i];
         vt:=i;
        end;
  write('day ban dau la:');
  for i:=1 to n do write(a[i],' ');
  writeln;
  tam:=a[1];
  a[1]:=a[vt];
  a[vt]:=tam;
  write('day sau khi doi la:');
  for i:=1 to n do write(a[i],' ');
 readln;
end.

uses crt;
var n,i,t,max:longint; a:array[1..10000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if i=1 then max:=1;
         if a[max]<a[i] then max:=i;
      end;
   t:=a[1]; a[1]:=a[max]; a[max]:=t;
   for i:=1 to n do write(a[i],' ');
readln
end.