program babo4ka;
uses crt,graphABC;
begin
setwindowsize(600,600);
line(263,47,220,5);
line(300,47,340,5);
setbrushcolor(clblack);
circle(283,70,30);
setbrushcolor(clyellow);
circle(198,180,65);
circle(371,180,65);
circle(159,340,100);
circle(410,340,100);
setbrushcolor(clred);
ellipse(180,145,240,220);
ellipse(330,145,390,220);
setbrushcolor(clbrown);
ellipse(260,100,310,500);
setbrushcolor(clblue);
ellipse(90,270,140,333);
ellipse(430,270,480,333);
setbrushcolor(clgreen);
ellipse(155,320,205,385);
ellipse(363,320,413,385);
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Можете решить! Язык: Паскаль. Информатика, 8 класс.
# подключаем библиотеку, чтобы использовать случайные числа
from random import randint
n=int(input('Введите количество элементов массива : '))# вводим размерность массива
a=[0]*n # Создаём массив размерность n
for i in range (0, n): #в цикле
a[i]=randint(1,30) # заполняем каждый элемент случайными числави
print(a) #печатаем исходный массив
a=sorted(a)# сортируем исходный массив
print(a) # печатаем отсортированный массив
x=int(input('Введите Х :')) #вводим Х
for i in range (n-1, 1, -1): # в цикле
if x > a[i]: # ищем положение, куда вставить X
a[n-1]=a[n-1]+a[i] # к максимальному элементу массива прибавляем #элемент который заменили
a[i]=x # а на его место вставляем Х
break
print(a) # печатаем ответ