Нужно написать программу
18) Заполнить массив случайным образом и вывести на экран только элементы остаток от деления на x которых равен 2
Ответы
Ответ дал:
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад