Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и чётные цифры делит на 2,а нечётные-умножает на 3
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-20,20).Println.Select(t->t.IsEven?t div 2:t*3).ToArray.Println;
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-20,20).Println.Select(t->t.IsEven?t div 2:t*3).ToArray.Println;
end.
Вас заинтересует
2 года назад
9 лет назад