Sonolrik
4 год назад
Пожалуйста посчитайте написать программу на паскалеЗадание:Требуется переписать элементы массива А в массив Б,удвоив все элементы,меньшие 1-ого элемента,остальные переписать без изменений. Массив А заполняется случайными числами
ОТВЕТЫ
Янчо
Oct 24, 2020
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
133
