Viết chương trình tìm phần tử có giá trị lớn nhất của mảng và đưa ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử có cùng giá trị lớn nhất thì đưa ra phần tử có chỉ số nhỏ nhất ĐẦU TIÊN

  uses crt;

var a,i:integer;

      A:array [1..100] of integer;

begin

         clrscr;

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

         for i:=1 to n do

              begin

              write('Phan tu thu ',i,'=');

              readln (A[i]);

              end;

          max :=A[i]; max=1;

          for i:=2 to n do

          if A[i]>max then

             begin

                   max=A[i]

             end;

          writeln('Gia tri max = ',max:2:2);

          readln;

end.

program bai_giai;
uses crt;
var A:array[1..10000] of integer;
    n,i,max,cs:integer;
begin
    clrscr;
    write('Nhap so phan tu: '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap so thu ',i,': ');  readln(A[i]);
        end;
    max:=A[1]; cs:=1;
    for i:=2 to n do
        if A[i]>max then
           begin
                max:=A[i]; cs:=i;
           end;
    write(max,' ',cs);
end.