#pas
uses crt;
const
  Sz = 100;
var
  a: array [1..Sz] of real;
  N: integer;
  min: real;
  minind,i: integer;
begin

  for i:=1 to 20 do a[i] := Random(100);
  writeln('Элементы массива: ');
  for i:=1 to 20 do
    write(a[i],' ');
  writeln;

  min := a[1];
  minind := 1;
  for i:=2 to 20 do if a[i]<min then
    begin
      min := a[i];
      minind := i;
    end;

  writeln('Минимальный элемент: ',min);
  writeln('Индекс минимального элемента: ',minind);
end.