Скопируйте отрицательные и положительные кратные заданному числу элементы массива А в массив В в обратном порядке. Задача в паскале, спасибо!
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -99, 99);
a.Println;
var k := ReadInteger('Введите число для отбора по кратности:');
var b := a.Where(t -> (t <> 0) and (t mod k = 0)).Reverse.ToArray;
b.Println
end.
Пример
n= 21
-32 50 45 -21 -28 7 -24 60 42 -91 -51 47 -72 82 14 7 40 51 -82 92 -85
Введите число для отбора по кратности: 3
51 -72 -51 42 60 -24 -21 45
Ответ дал:
0
Спасибо
Ответ дал:
0
Пожалуйста. Спасибо тут принято выражать простым кликом по красному сердечку.
Вас заинтересует
2 года назад
3 года назад
3 года назад
9 лет назад
9 лет назад
9 лет назад