1.дан массив. все его элементы уменьшить на число а. 2.найдите произведение нечетных элементов массива в паскале , так что бы работало на компьютере и выдавала результат.

Const  n = 5;

var
  a: array[1..n] of integer;
  i, b: integer;

begin
  for i := 1 to n do 
  begin
    a[i] := random(0, 10);
    write(a[i], ' ');
  end;
  writeln();
  read(b);
  for i := 1 to n do
    write(a[i] - b, ' ');
end.

const
  n = 5;

var
  a: array[1..n] of integer;
  i, p: integer;

begin
  p := 1;
  for i := 1 to n do 
  begin
    a[i] := random(0, 10);
    write(a[i], ' ');
    if(odd (a[i])) then p *= a[i];
  end;
  writeln();
  writeln(p);
end.