Question

Cho dãy A gồm N số nguyên a1, a2,.....,an. Tìm giá trị lớn nhì của dãy A

Answer 1

uses crt;
var a,b:array[1..100]of integer;
kt1,n,i,tam,dem,kt,j,x,c,d:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------xuat--------------------------}
for i:=1 to n do write(a[i]:4);
{---------------moi-so-viet-mot-lan--------------------}
writeln;
b[1]:=a[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then begin
dem:=dem+1;
b[dem]:=a[i];
end;
end;
{------------sap-xep-----------------------------------}
for d:=1 to dem-1 do
for c:=d+1 to dem do
if b[d]<b[c] then begin
tam:=b[d];
b[d]:=b[c];
b[c]:=tam;
end;
x:=b[2];
{---------------------tim-vi-tri----------------------}
kt1:=0;
for i:=1 to n do
if x=a[i] then kt1:=1;
if kt1=1 then writeln('so lon thu nhi trong day la: ',x);
readln;
end.

Answer 2

Answer 3

Program hotrotinhoc;

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

i,n,max,max2: integer;

begin

readln(n);

max:=0; max1:=0;

for i:=1 to n do

begin

read(a[i]);

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

end;

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

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

writeln;

write(max2);

readln

end.