Дан одномерный массив из 7 элементов, заполненный случайным числом в интервале от 1 до 99. Напишите программу, которая находит произведение всех нечетных элементов массива. Значения элементов вывести в строку через пробел.

Непозиционные - где цифра всегда означает одно число(римская)
Позиционные - где цифра означает разные числа на разных позициях
Фиббоначиева, Факториальная, (Десятичная)
Традиционные - Позиционные СС, в которых базис является неотрицательной монотонной возрастающей последовательностью, которая образует геометрическую прогрессию(Десятичная, двоичная) название означает основание этой прогресси

на заметку , базис - возрастающая неотрицательная последовательность, начинающаяся с 1, которая задаёт веса разрядов в числе

Var a: array[1..5,1..5] of integer;
i,j,p,s: integer;
begin 
Writeln('Введите элементы матрицы: '); 
 for i:= 1 to 5 do  
  for J:=1 to 5 do   
read(a[i,j]);     
  for i:= 1 to 5 do   
begin 
  for j:= 1 to 5 do 
  write(A[i,j], ' '  ) ;     
  writeln();   
 end;         
 p:= 1; 
  s:= 0;   
 for i:= 1 to 5 do  
  for J:=1 to 5 do 
   if a[i,j] > 0 then 
     begin 
   s:= s+1;   
  p:= p*a[i,j];     
   end;   
 Writeln('Количество положительных элементов = ', s);    Writeln('Произведение положительных элементов = ', p); 
   end.