viết phương trình tìm phần tử có giá trị nhỏ 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ị nhỏ nhất thì đưa ra phần tử lớn nhất

var n,i,cs,max:longint;

       a: array [1..100] of longint;

begin

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

for i:=1 to n do

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

writeln;

for i:=n downto 1 do

if a[i]>=max then 

begin

max := a[i];

cs:=i;

end;

write('Phan tu lon nhat la: ',a[cs],' vi tri la: ',cs);

readln;

end.

program Hotrotinhoc;

var d,i,n,max,min: integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=0; min:=32000;

for i:=1 to n do

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

for i:=1 to n do

if min=a[i] then inc(d);

if d>1 then

begin

for i:=1 to n do

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

write(max);

end;

readln

end.