Question

ПАСКАЛЬ!!! Напиши программу, которая вводит с клавиатуры целое число N и массив из N целочисленных элементов и выводит на экран в столбик все элементы массива, кратные 3, но не кратные 5.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 ReadSeqInteger('Вводи элементы массива:', n)

     .Where(p -> (p mod 3 = 0) and (p mod 5 <> 0))

     .PrintLines

end.