Пожалуйста посчитайте даю 20 поинтов!!составе программу,которая формирует массив из пятнадцати случайных целых чисел от -20 до 20 и увеличивает в 2 раза числа, красные 5,а остальные умеет шает в 2 раза.

Question

Информатика

Ghodar

5 год назад

Пожалуйста посчитайте даю 20 поинтов!!составе программу,которая формирует массив из пятнадцати случайных целых чисел от -20 до 20 и увеличивает в 2 раза числа, красные 5,а остальные умеет шает в 2 раза.

ОТВЕТЫ

Koch Sabine

Oct 24, 2020

begin
var a:=ArrRandom(15,-20,20); a.Println;
a.Transform(t->t mod 5=0?2*t:t div 2); a.Println
end.

-3 -11 19 1 6 -6 -14 1 -18 -10 -19 6 -1 -13 -2
-1 -5 9 0 3 -3 -7 0 -9 -20 -9 3 0 -6 -1

718