[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Vấn đề chính là tìm được số lớn thứ 2. Tìm được rồi thì sẽ dễ thôi.
for i := 2 to N do
if a[i] > Max1 then
begin
Max2 := Max1;
Max1 := a[i];
end;
Max1 là số lớn nhất còn max2 là số lớn thứ 2.
Nhưng nếu số lơn nhất của e ở đầu dãy thì code của a sẽ ko có kết quả =). Nó sẽ ra luôn a[1]
uses crt;
var a:array[1..100] of integer;
n,i,j,m,k,t:integer;
begin
clrscr;
write('Nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']:');
readln(a[i]);
if i=1 then begin m:=a[1];t:=1;end else if a[i]>m then begin m:=a[i];t:=i;end;
end;
if t=1 then
begin
j := a[2];
for i := 2 to n do if a[i]>j then j:=a[i];
end else
begin
j := a[1];
for i:=1 to n do
if (a[i]>j) and (a[i]<m) then j:=a[i];
end;
for i := 1 to n do if a[i]=j then inc(k);
writeln('So lon thu nhi la:',j);
if k>1 then
begin
write('Cac vi tri cua so do la:');
for i := 1 to n do if a[i]=j then write(i,#32);
end;
readln
end.Lúc đầu là a nghĩ cái này. Nhưng lại phải sắp xếp lại thì nó sai vị trí ban đầu mất rồi.
Hiệu có vẻ là dễ nhất. Không thì a áp dụng tổng cx được. Nhưng mà vấn đề là làm thế nào để nhỡ có 2 số max thì có thể loại được 1 số trong phần xét
uses crt;
var a:array[1..100] of integer;
n,i,j,m,k,t:integer;
begin
clrscr;
write('Nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']:');
readln(a[i]);
if i=1 then begin m:=a[1];t:=1;end else if a[i]>m then begin m:=a[i];t:=i;end;
end;
if t=1 then
begin
j := a[2];
for i := 2 to n do if (a[i]>j) and (a[i]<m) then j:=a[i];
end else
begin
j := a[1];
for i:=1 to n do
if (a[i]>j) and (a[i]<m) then j:=a[i];
end;
for i := 1 to n do if a[i]=j then inc(k);
writeln('So lon thu nhi la:',j);
if k>1 then
begin
write('Cac vi tri cua so do la:');
for i := 1 to n do if a[i]=j then write(i,#32);
end;
readln
end.Xem ra có vẻ hiệu là ổn nhất. chỉ cần xét hiệu nhỏ nhất và số đang xét khác max là được roài
