Question

Viết CT nhập vào 1 mảng sau đó tìm và in ra số lớn nhì và lớn ba của mảng

Answer 1

mình viết 1 đoạn thôi nha

max:=0;

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

max2:=0;

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

max3:=0;

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

write ra max2 và max3 thôi.

Answer 2

uses crt;
var a,b:array[1..100]of integer;
i,n,dem,kt,j,tam:integer;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------------------------}
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;
for i:=1 to dem-1 do
for j:=i+1 to dem do
if b[i]<b[j] then
begin
tam:=b[i];
b[i]:=b[j];
b[j]:=tam;
end;
writeln('so lon thu 2 trong day la: ',b[2]);
writeln('so lon thu 3 trong day la: ',b[3]);
readln;
end.