Серапион
7 год назад
Составить программу которая заполняет массив из 10 случайных чисел затем все не четные значения увеличивает в 3 раза а четные заменяет нулями
ОТВЕТЫ
Sagepnad
Jul 26, 2019
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var a:=ArrRandom(10,0,90); a.Println;
a:=a.Select(x-gt;x.IsOdd3*x:0).ToArray; a.Println
end.
Пример
83 16 76 62 53 57 28 24 10 29
249 0 0 0 159 171 0 0 0 87
begin
var a:=ArrRandom(10,0,90); a.Println;
a:=a.Select(x-gt;x.IsOdd3*x:0).ToArray; a.Println
end.
Пример
83 16 76 62 53 57 28 24 10 29
249 0 0 0 159 171 0 0 0 87
127
Смежные вопросы:
