Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20;20]. И найти минимальный элемент массива и его индекс.

program massiv;var mass:array[1..15] of integer;    i,j,a:integer;beginj:=mass[1];for i:=1 to 15 do beginmass[i]:=random(40)-20;writeln(mass[i]:3);if mass[i]<j then beginj:=mass[i];a:=i;end;end;writeln('mass[',a,']=',j);end.

var A: array [1..15] of integer;    i, min, index: integer;begin  min:=A[1];  for i:=1 to 15 do    begin    A[i]:=random(41)-20;    write (A[i], ' ');  end;  writeln;  for i:=1 to 15 do  begin    if min>A[i] then      begin      min:=a[i];      index:=i;  end;  end;  writeln('Минимальный элемент массива = ',min);  writeln('Его индекс = ',index);end.