ответить на вопросы всё . ​

Const
  n = 50;

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

begin
  Randomize;
  Writeln('Исходный массив');
  min:=32767;
  for i := 1 to n do
  begin
    a[i] := Random(99)+1;
    Write(a[i]:3);
    if ((a[i] mod 2)<>0) and (min>a[i]) then min:=a[i]
  end;
  Writeln;
  Writeln('Минимальный нечетный элемент равен ',min)
end.

Тестовое решение:
Исходный массив
 24 19 87 17 11 98 74 11 57 42  9 23  3 90 62 61 53 55 63 93 22 50 82 97 26 39 43 26 46 52 13 94 26 98 87 95 43 69 24 41 56 78 22 45 53 45 59 57  3 64
Минимальный нечетный элемент равен 3

Var    a: array [1..100] of integer; 
    n, i, j: integer;
    fout: text;
begin
    assign(fout, 'output.txt');
    rewrite(fout);
    n := 10; //n - длина массива
    for i := 1 to n do
        a[i] := random(100);
    for i := 1 to n do
        write(fout, a[i], ' ');
    writeln(fout);
    j := 1;
    for i := 2 to n do
        if a[i] > a[j] then
            j := i;
    writeln(fout, 'max = ', a[j], '  max_ind = ', j);
    j := 1;
    for i := 2 to n do
        if a[i] < a[j] then
            j := i;
    writeln(fout, 'min = ', a[j], '  min_ind = ', j);
    close(fout);
end.