uses crt;

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

    i, n, Max : integer;

begin

clrscr;

write('Nhap so phan tu n = '); readln(n);

write('Nhap phan tu thu 1 : '); readln(A[1]);

Max := A[1];

for i := 2 to n do

    begin

        write('Nhap phan tu thu ', i ,' : ');readln(A[i]);

        if A[i] > Max then Max := A[i];

    end;

write('Vi tri co phan tu lon nhat : ');

for i := 1 to n do

    if A[i] = Max then write(i,' ');

readln

end.

n = int(input('n='))
a = [int(input('a[%d]='%i)) for i in range (n)]
print('cac vi tri co phan tu lon nhat:',*[i for i in range (n) if (a[i]==max(a))])

$\color{green}{\text{Cần code C/C++, C#, Java, JavaScript thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$