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

var a:array [1 ... 100] of integer; / /массив чисел

i, nech, kr3:integer; / /итератор массива, число нечетных чисел, число чисел, кратных трем

begin

randomize; / / функция для использования случайных чисел

for i: = 1 to 100 do

begin

a[i]: = random (100) - 50; / /заполнение массива случайными числами, в том числе и отрицательными

if (a[i] mod 2 = 1) and ((a[i] mod 3 = 0) then inc (kr3); / / подсчет чисел, кратных трем

if (a[i] mod 3 = 0) then inc (nech); / / подсчет нечетных чисел

end;

for i:=1 to 100 do

write (a[i], ' '); / /вывод элементов массивов

writeln;

writeln (kr3, ',', nech, ',', 100); / / вывод ответов на задачу

end.