Question

Нужно написать программу
18) Заполнить массив случайным образом и вывести на экран только элементы остаток от деления на x которых равен 2

Answer 1

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

begin
  var x:=ReadInteger('x=');
  var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
  a.Where(t->t mod x=2).Println
end.

Пример
x= 5
n= 20
45 58 11 43 42 37 93 71 91 1 94 19 37 92 65 22 69 10 63 33
42 37 37 92 22