Нужно написать программу 18) заполнить массив случайным - вопрос №850941918 от тса2 16.05.2023 13:34

Question

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

тса2 · Answer

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