#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.

Add(MainForm,2953706,21,105)
{
 link(onCreate,1697911:doFor,[])
}
Add(For,1697911,112,119)
{
 End=99
 link(onEvent,12080870:doRandom,[])
 link(onStop,2838087:doEnum,[(183,132)(183,188)])
}
Add(Random,12080870,210,119)
{
 link(onRandom,12454355:doAdd,[])
}
Add(StrList,12454355,259,119)
{
}
Add(ArrayEnum,2838087,273,182)
{
 link(onItem,8573360:doCompare,[])
 link(onEndEnum,12899620:doMessage,[(321,195)(321,223)])
 link(Array,12454355:Array,[])
}
Add(If_else,8573360,329,182)
{
 Type=1
 link(onTrue,11064432:doValue,[(462,188)(462,96)(324,96)(324,139)])
 link(Op2,5310383:Var2,[])
}
Add(Memory,11064432,336,133)
{
 Default=Integer(999)
 Point(Data)
 link(onData,13055408:doValue,[])
 link(Data,4027594:Var,[])
}
Add(Memory,13055408,392,133)
{
 Point(Data)
 link(Data,15288093:Var,[])
}
Add(LineBreak,6377843,280,224)
{
 Type=1
 link(Data,2838087:Index,[])
 Primary=[15288093,112,-119]
}
Add(Message,12899620,385,217)
{
 link(Message,5310383:Var3,[(391,173)])
 link(Caption,13055408:Value,[])
}
Add(GetDataEx,5310383,336,168)
{
 link(Data,11064432:Value,[])
}
Add(LineBreak,14440516,273,224)
{
 Type=1
 link(Data,2838087:Item,[])
 Primary=[4027594,63,-119]
}