Question

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

Answer 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; Б.Println
end.

Пример
n= 15
11 -39 -30 -40 97 12 51 91 29 -52 2 27 -81 20 9
11 -78 -60 -80 97 12 51 91 29 -104 4 27 -162 20 18

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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