Viết chương trình nhập một dãy M( với M được nhập từ bàn phím )tìm và thông báo ra màn hình số lớn nhất trong dãy Nhanh nhá , mai mk thi r

program lon_nhat;

uses crt;

var M:array[1..1000] of integer;

     n,i,max:integer;

begin

       clrscr;

       write(‘Nhap so luong phan tu: ‘);  readln(n);

       for i:=1 to n do

              begin

                     write(‘M[‘,i,’]= ‘);   readln(M[i]);

              end;

       max:=M[1];

       for i:=2 to n do

              if M[i]>max then max:=M[i];

       write(‘So lon nhat la: ‘,max);

       readln;

end.