Anage
7 год назад
В массиве все элементы >10 и <20 заменить на первый элемент массива
ОТВЕТЫ
Данилович
Jul 18, 2019
// 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-gt;((xgt;10) and (xlt;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
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger(n=),1,30); a.Println;
var a1:=a[0];
a.Transform(x-gt;((xgt;10) and (xlt;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
147
