{
Задача
Создайте целочисленный массив из 20 элементов с помощью генератора 
случайных чисел с элементами от 0 до 15 и выведите его на экран. 
Подсчитайте и выведите на экран количество не четных элементов
}
const
b = 20;
var
a : array [1..b] of integer;
i:  integer;

begin
randomize;  //подключаем генератор случайных чисел

for i:=1 to b do 
    a[i]:=random(15); //генерируем массив из случайных чисел
 
writeln('вывод массива') ;
for i:=1 to b do 
    write(a[i],'  '); //выводим массив
writeln;

writeln('вывод нечетных чисел из массива');     
for i:=1 to b do 
    if (a[i] mod 2 =1) then
                       write(a[i], '  ')//выводим нечетные числ из массива
end.