Cоставьте программу, которая формирует массив из - вопрос №82733147 от xcp4 15.11.2020 00:24

Question

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

xcp4 · Answer

// 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.