Вмассиве все элементы 10 и 20 заменить на первый элемент - вопрос №65900271020 от val40 25.01.2021 06:02

Question

Информатика: Вмассиве все элементы 10 и 20 заменить на первый элемент массива

val40 · Answer

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),1,30); a.Println;
var a1:=a[0];
a.Transform(x->((x>10) and (x<20))?a1:x); a.Println;
end.

Пример
n= 15
8 6 15 29 11 20 11 13 19 6 1 10 18 26 19
8 6 8 29 8 20 8 8 8 6 1 10 8 26 8

Вмассиве все элементы > 10 и < 20 заменить на первый элемент массива