ооочень проект "Подари яблоко". У Асель есть N яблок (0 <N <10000). Вес яблок - массив (b <1000). Асель хочет подарить своей сестре Гаухар самое большое яблоко K (0 << N). Подготовьте проект, чтобы Ассель выбрать самое большое яблоко,N=int(input('Almalardyn sany=')) K=int(input('Silaytyn almalar sany='))
B=[0]*N
for i in range(0,N):
B[i]=randint(1,100)
print('Almalardyn salmagy')
print(B)
qSort(B,0,N-1)
print('Alma salmaktarynyn kemy retimen ornalasuy')
print(B)
print('Silaityn almalary')
print(B[:K])
​

uses graphabc;

var x,y,i,n,k,x0,y0: integer;

begin

setwindowsize(640, 480);

setpenwidth(3);

line(10, 240, 630, 240);

line(320, 10, 320, 470);

line(620, 235, 630, 240);

line(620, 245, 630, 240);

line(315, 20, 320, 10);

line(325, 20, 320, 10);

n: =10;

for i: =1 to 61 do begin

line(o+i*n, 243, o+i*n, 237);

end;

for i: =1 to 46 da begin

line(317,20 +i*n, 323,20+i*n);

end;

x0: =320;

y0: =240;

k: =50;

for x: =-320 to 320 do

begin

y: =truns(k*sin(x/k);

putpixel(x0+x, y0-y, clred);

end;

textout (50,40; grafic y=sinx');

end.

Uses graphABC;beginsetpenwidth(3);setwindowsize(600,700);ellipse(120,350,280,480);circle(200,300,60);circle(200,210,40);line(170,90,230,90);line(160,180,240,180);line(170,90,160,180);line(230,90,240,180);floodfill(200,173,clblack);floodfill(200,123,clblack); setbrushcolor(clblack);circle(190,200,5);circle(210,200,5);line(200,210,220,220);line(200,220,220,220);line(200,210,200,220);floodfill(204,214,clblack);setpenwidth(5);arc(200,230,10,180,0);line(70,320,170,250);line(230,250,330,300);line(300,450,350,200);
line(350,200,320,140);line(350,200,340,140);line(350,200,360,140);line(350,200,380,140);line(350,200,400,140);end.