Скопируйте отрицательные и положительные кратные данному числу элементы массива А в

Question

Скопируйте отрицательные и положительные кратные данному числу элементы массива А в массив В в оборотном порядке. Задача в паскале, спасибо!

Kolja Pimov 2019-08-23 05:26:49

(отрицательные) и (положительные, кратные заданному числу) либо (отрицательные и положительные), кратные данному числу?

Серега Пичурин 2019-08-23 05:31:03

Второе

Наталья Будзилович 2019-08-23 05:37:16

Т.е. просто не инспектировать 0

Костян 2019-08-23 05:44:13

я так понимаю, 0 не нужно копировать в массив В

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Таисия · Answer 1 · 2019-08-23 05:32:18+3:00

begin

var a := ArrRandom(ReadInteger('n='), -99, 99);

a.Println;

var k := ReadInteger('Введите число для отбора по кратности:');

var b := a.Where(t -gt; (t lt;gt; 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