Cоставьте программу, которая формирует массив - вопрос №8274216710 от niganai 08.11.2022 16:56

Question

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

niganai · 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.