Question

Cоставьте программу, которая формирует массив из 7 случайных целых чисел от -10 до 10 и увеличивает в 4 раза числа кратные 4, а остальные уменьшает на 1

Answer 1

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

begin
var a:=ArrRandom(7,-10,10);Writeln(a);
a:= a.Select(t -> t mod 4 = 0? 4*t: t-1).ToArray;Writeln(a);
end.