Program minimalniielement;
Var i: integer;
    min: real;
    A: array [1..10] of real;
Begin
  Writeln('Введите 10 элементов массива: ');
  min:=0;
  for i:=1 to 10 do
    begin
      Write('A[',i,']= ');
      Readln(A[i]);
      if A[i]<min then min:=A[i];
    end;
  Writeln('Минимальный элемент массива: ', min);
  Readln;
End.