Question

дан одномерный массив а заполненный случайным образом в диапазоне [-60;55] размерность массива 12 элементов составить программу получения массива в состоящего только из чисел массива а кратных задонному числу

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(12, -60, 55);

 a.Println;

 var m := ReadInteger('Укажите число для поиска кратных:');

 var b := a.Where(p -> p mod m = 0).ToArray;

 if b.Length = 0 then

   Print('Таких чисел нет')

 else

   b.Println

end.