Question

Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình các thông tin sau :

1.Giá trị lớn thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị lớn nhì.

2.Giá trị nhỏ thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị nhỏ nhì.

Answer 1

1.

Program HOC24;

var i,n,max,max2: integer;

a: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1]; max2:=a[1];

for i:=1 to n do if a[i]>max then max:=a[i];

for i:=1 to n do if (a[i]>max2) and (a[i]<>max) then max2:=a[i];

writeln('So lon thu nhi cua day la : ',max2);

write('Cac chi so la : ');

for i:=1 to n do if a[i]=max2 then write(i,' ');

readln

end.

Answer 2

2.

Program HOC24;

var i,n,min,min2: integer;

a: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

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

end;

min:=a[1]; min:=a[1];

for i:=1 to n do if a[i]<max then min:=a[i];

for i:=1 to n do if (a[i]<min2) and (a[i]<>min) then min2:=a[i];

writeln('So lon thu nhi cua day la : ',min2);

write('Cac chi so la : ');

for i:=1 to n do if a[i]=min2 then write(i,' ');

readln

end.