uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

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

writeln('Gia tri lon nhat la: ',max);

write('Vi tri la: ');

for i:=1 to n do 

  if max=a[i] then write(i:4);

readln;

end.

Còn viết đề bài thì mình chịu ^^

Sorry nha

Xin hay nhất được ko ạ?^^

Cô giáo Mary đang chia kẹo cho lớp học của mình, các phần kẹo được chia ra thành từng túi nhỏ khác nhau. Cô còn muốn đem 1 phần kẹo cho người con của mình. Khổ cho cô, cô cần lấy phần kẹo lớn thứ 2 (vì nếu cô lấy phần kẹo lớn nhất thì các học sinh sẽ cho rằng cô tham). Em hãy viết chương trình giúp cô giáo Mary lấy ra được vị trí phần kẹo lớn thứ 2 trong dãy nhé.

Input: 

Dòng đầu ghi ra số lượng gói kẹo

Dòng tiếp theo ghi liên tục các số biểu thị cho số kẹo mỗi gói.

Output:

Một dòng duy nhất ghi vị trí gói kẹo tìm được. Nếu có nhiều vị trí thoả mãn, ghi ra vị trí đầu tiên.

Vd:

Input 1:

5

10 28 30 50 40

Output 1:

5

Input 2:

10 

10 10 20 7 5 15 8 15 11 13

Output 2:

6