Дан массив a[n], требуется умножить значения - вопрос №7626334 от ERESYUR 09.04.2023 17:51

Question

Информатика: Дан массив a[n], требуется умножить значения элементов этого массива на 4, если а[i] 0, или на 7, если а[i] =0

ERESYUR · Answer

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

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Transform(x->x>0?x*4:x*7); a.Println
end.

Пример
n= 13
-9 23 -29 -36 -10 -20 9 28 26 34 -41 -2 45
-63 92 -203 -252 -70 -140 36 112 104 136 -287 -14 180

Дан массив a[n], требуется умножить значения элементов этого массива на 4, если а[i]> 0, или на 7, если а[i]< =0