cho mảng A gồm n phần tử nguyên dương (n<=10^5, A(i)<=10^6) -nhập ngẫu nhiên mảng A 1. Tìm kiếm 3 phần tử lớn nhất trong mảng A 2. Tìm kiếm 100 phần tử nhỏ nhất trong mảng A 3. Tìm kiếm 10000 phần tử nhỏ nhất A 4. Sắp xếp tăng dần A 5. Tìm đoạn liên tục có tổng nhỏ hơn 10000 dài nhất ai giúp mk với đag cần gấp ;))
uses crt;
var n,i,j,vt,m,t,tong,da,cu:longint; a,b,c,d,e:array[1..100000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
b[i]:=a[i]; c[i]:=a[i]; d[i]:=a[i]; e[i]:=a[i]
end;
writeln(‘Cau 1:’);
for i:=1 to 3 do
begin
vt:=1;
for j:=1 to n do if a[j]>a[vt] then vt:=j;
writeln(a[vt]); a[vt]:=low(longint);
end;
writeln(‘Cau 2:’);
m:=n;
if m>100 then m:=100;
for i:=1 to m do
begin
vt:=1;
for j:=1 to n do if b[j]<b[vt] then vt:=j;
writeln(b[vt]); b[vt]:=high(longint);
end;
writeln(‘Cau 3:’);
m:=n;
if m>10000 then m:=10000;
for i:=1 to m do
begin
vt:=1;
for j:=1 to n do if c[j]<c[vt] then vt:=j;
writeln(c[vt]); c[vt]:=high(longint);
end;
writeln(‘Cau 4:’);
for i:=1 to n do
for j:=i to n do
if d[i]>d[j] then
begin t:=d[i]; d[i]:=d[j]; d[j]:=t; end;
for i:=1 to n do write(d[i],’ ‘); writeln;
writeln(‘Cau 5:’);
for i:=1 to n do
begin
j:=i-1;
tong:=0;
repeat
inc(j);
inc(tong,e[j]);
until (tong>10000)or(j=n);
if tong>=10000 then begin tong:=tong-e[j]; dec(j); end;
if (j-i+1>cu-da+1)and(tong<10000) then begin cu:=j; da:=i; end;
end;
writeln(da,’=> ‘,cu);
readln
end.