Question

Дан массив А(10), который вводится с клавиатуры. Все элементы, которые меньше первого элемента умножить на 2. Вывести измененный массив.нааписать пограмму на паскале

Answer 1

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
  var a:=ArrRAndom(10,1,30); a.Println;
  var k:=a[0];
  a:=a.Select(x->x<k?x*2:x).ToArray; a.Println
end.

Пример
10 7 22 20 1 22 4 23 1 11
10 14 22 20 2 22 8 23 2 11