Заполнить массив случайными числами (положительными и отрицательными)
из произвольного диапазона. Вывести созданный массив на экран, расположив
элементы в одну строку через пробелы. Посчитать общее количество элементов, кратных 3 и нечетных элементов и вывести на экран

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  var k3:=a.Where(x->x mod 3=0).Count;  var kOdd:=a.Where(x->x.IsOdd).Count;  Writeln('Элементов, кратных 3: ',k3);  Writeln('Нечетных элементов: ',kOdd);  Writeln('В сумме и тех, и других: ',k3+kOdd)end.Тестовое решениеn= 15-40 39 58 -85 -61 -49 -9 -67 11 -20 -67 -33 -97 66 33Элементов, кратных 3: 5Нечетных элементов: 11В сумме и тех, и других: 16