Таблица истинности сделать, откройте там 3 таких ​

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

Для создания архива данных, будем использовать программу WinRar:

1. Открыть программу.
2. В главном меню нажать на вкладку - Команды, затем добавить файлы к архиву
3. Выбираем  директорию на которой хранится наш файл.
4. Настраиваем архив (формат. пароль  метод сжатия и т.д.).


1. Правой кнопкой мыши по файл, который хотим заархивировать.
2. Выбрать пунк Добавить к Архиву
3. Выбираем  директорию на которой хранится наш файл.
4. Настраиваем архив (формат. пароль  метод сжатия и т.д.).

Для создания CD/DVD-R,RWдиска с данными выполним следующие действия:
Используем программу ImgBurn
1. Приобретаем диск
2. Помещаем компакт-диск в привод
3. Выбираем соответствующие дальнейшие действия с нашим диском. Мы записываем информацию. Выбираем  "Записать Файла/Папки на диск"
4. Выбираем директорию хранения предварительной записываемой информации.
5. В правом блоке информации, проверяем размеры файлов, что бы не превышали размерности компакт-диска. 
6. Файл - Записать
5. Получаем отсчет о записи, удостоверяемся что запись без ошибок.