Помогите написать программу на паскале
Задание:
Требуется переписать элементы массива А в массив Б,удвоив все элементы,меньшие 1-ого элемента,остальные переписать без изменений. Массив А заполняется случайными числами

Не попроще, а так сказать развернуть

Любую программу можно писать десятками способов. Но это надо указывать в задании, чтобы люди видели до того, как начали решать, а не после того, как дали ответ. Например, указывать Вашу версию паскаля или требуемое подмножество языка. Но не после получения решения.

Получается, что Вы своими просьбами как бы говорите: "Ты поработал, сделал, но мне хочется иначе, поэтому давай еще поработай, может получится что-то более похожее на то что мне надо. А не получится, я третий раз попрошу". Чужой-то труд - он бесплатный.

Если Вам не засчитывают практику, это проблемы Вас и Вашего преподавателя. Мы тут не можем мысли читать и угадывать, чего его душечке угодно.

Программа написана и работает. Условию задания она соответствует в точности, даже сохранено имя массива Б на кириллице.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017// Внимание! Если программа не работает, обновите версию!begin  var A:=ArrRandom(ReadInteger('n='),-99,99); A.Println;  var Б:=A.Select(x->x<A.First?2*x:x).ToArray; Б.Printlnend.Примерn= 1511 -39 -30 -40 97 12 51 91 29 -52 2 27 -81 20 911 -78 -60 -80 97 12 51 91 29 -104 4 27 -162 20 18