Question

Nhập vào mảng A gồm n số nguyên (n<=1000), Viết chương trình đưa ra số lớnnhất của mảng và chỉ số của phần tử lớn nhất đó. Nếu có nhiều số có cùng giá trị lớnnhất thì đưa ra phần tử có chỉ số nhỏ nhất.Ví dụ n=7, dãy là 7 9 20 7 8 20 1Phân tử lớn nhất có giá trị là 20 và ở vị trí số 3. (vị trí số 6 cũng có giá trị 20 nhưng takhông lấy vì ta cần lấy phần tử có chỉ số nhỏ nhất).

Answer 1

uses crt;

var a,b,c:array[1..1000]of integer;   

i,n,dem,max:integer;

begin

clrscr;

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

for i:=1 to n do 

begin     

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

end;

dem:=0;

max:=a[1];

for i:=1 to n do 

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

for i:=1 to n do 

if max=a[i] then     

begin       

inc(dem);       

b[dem]:=a[i];       

c[dem]:=i;     

end;

if dem=1 then writeln('So lon nhat la: ',b[dem],' vi tri la: ',c[dem])

else writeln('So lon nhat la: ',b[1],' vi tri la: ',c[1]);

readln;

end.