Помогите написать программу ** паскале Задание: Требуется переписать элементы массива А в...

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->xend.

Пример
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

Comments

Эникей а можешь как то ее попроще написать через цикл? Просто не защитывают практу

---

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