Quảng cáo
2 câu trả lời 581
Tìm Min, Max .Gán cho Biến lớn nhì( Ln) Ln:=Min duyệt mảng
(Chú ý ĐK : if (Ln<a[i]) and (a[i]<> max) then Ln:= a[i]; )
* Duyệt lại mảng để lưu lại vị trí của phần tử lớn nhì
program giatrilonnhimang;
uses crt;
var i,n,min,max,lonnhi:longint;
a:array[1..100] of longint;
begin
write('nhap n la:');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
min:=a[1];
max:=a[1];
lonnhi:=min;
for i:=1 to n do
begin
if (lonnhi<a[i]) and (a[i]<>max)
then lonnhi:=a[i];
end;
begin
for i:=1 to n do
if a[i]=0 then begin write(i);
break;
end;
end;
writeln('gia tri *** nhi la:',lonnhi);
writeln('chi so *** nhi la:',i);
readln;
end.
Quảng cáo