(30 )добрый вечер, не могу доделать программу по информатике, посмотрите . : поменять местами первый элемент и минимальный. не понимаю, как правильно найти мин.элемент и его индекс, чтобы в дальнейшем выполнить условие . допишите программу с нахождением мин.элем. и его индекса с последующей перестановкой элементов. p.s. пропустил эту тему, поэтому , если не затруднит, распишите все подробно, буду . program solofor; var a: array [1..100] of integer; i, k1, n: integer; begin write('введите размер массива: '); readln(n); writeln('введите исходный массив='); write ('введите k1: '); readln(k1); for i to n do read(a[i]);

Program solofor;

var
  a:array [1..100] of integer;
  i,imin,n,t:integer;

begin
  Write('введите размер массива:'); Readln(n);
  Writeln('введите исходный массив:');
  for i:=1 to n do Read(a[i]);
  imin:=1;
  for i:=2 to n do
    if a[i]<a[imin] then imin:=i;
  if imin>1 then begin
    t:=a[1]; a[1]:=a[imin]; a[imin]:=t
    end;
  Writeln('результат:');
  for i:=1 to n do Write(a[i],' ');
  Writeln
end.

//PacalABC.NET 3.4.2

//Используется формула аналогичная формуле Бине для чисел

//Фибоначчи

const

 index = power(33, 0.5);

 a1 = power((19 + 3 * index), 1 / 3);

 a2 = power((19 - 3 * index), 1 / 3);

 b = power((586 + 102 * index), 1 / 3);

var

 n: smallint;

function tribonacthi(n: smallint): biginteger;

begin

 if (n = 1) or (n = 2) then result := 0

 else

   result := RoundBigInteger(3 * b * ((power((1 / 3 * (a1 + a2 + 1)), n - 1)) / (power(b, 2) - 2 * b + 4)));

end;

begin

 try

   n := readinteger('Введите количество элементов для вывода:');

 except

   on system.formatexception do

     writeln('Неверный формат ввода');

 end;

 for var i := 1 to n do write(tribonacthi(i), ' ');

end.

//PacalABC.NET 3.4.2

//Используется формула аналогичная формуле Бине для чисел

//Фибоначчи

const

 index = power(33, 0.5);

 a1 = power((19 + 3 * index), 1 / 3);

 a2 = power((19 - 3 * index), 1 / 3);

 b = power((586 + 102 * index), 1 / 3);

var

 n: smallint;

function tribonacthi(n: smallint): biginteger;

begin

 if (n = 1) or (n = 2) then result := 0

 else

   result := RoundBigInteger(3 * b * ((power((1 / 3 * (a1 + a2 + 1)), n - 1)) / (power(b, 2) - 2 * b + 4)));

end;

begin

 try

   n := readinteger('Введите количество элементов для вывода:');

 except

   on system.formatexception do

     writeln('Неверный формат ввода');

 end;

 for var i := 1 to n do write(tribonacthi(i), ' ');

end.