{* Минимальный элемент массива *}

Unit MAS_6;
Interface
Implementation
Begin
 writeln('Найти минимальный элемент массива');
End.

Program mas_6;

Uses mas_6.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Предопределенные *}
  n = 5;
Var {* В работе нам потребуются переменные: *}
  a   : Array[1..n] Of integer;
  i   : integer;
  min : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  randomize;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    a[i] := random(9);
    write(a[i]);
  End;
  writeln; {* Пропускаем одну строку *}
  min := a[1];
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    If min > a[i] Then
      min := a[i];
  writeln(min);
  readkey; {* Ждем нажатия пользователя *}
End.