Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и находит минимальный элемент массива и его индекс

var 

  a: array [1..10] of integer;

  i, min, minindex: integer;   {min - значение минимального элемента массива, minindex - индекс минимального элемента массива}

 

begin

  min: = 20;

  write('исходный массив:   ');

  for i: = 1 to 10 do

  begin

    a[i]: = random(19) + 1;

    write(a[i], '   ');

    if a[i] < min then 

    begin

      min: = a[i];  

      minindex: = i;

    end;

  end;

  writeln;

  write('минимальный элемент массива:   a[', minindex, '] = ', min);

  writeln;

end.

Решение № 2.1-2.5, 3, 5 смотри во вложении. 3.1. if (c > 0) cout < < "положительное." < < endl; else  cout < < "отрицательное." < < endl; 3.2. для записи 3.2. - 3.3.  используется функция "pow", для которой надо подключить библиотеку "< cmath> ". if (x > 4 & & x < 17) y = pow(x,2) - 9; 3.3. if(a > = -3 & & a < = 7) a -= 26; else a = pow(a,3); 3.4. if (b > = 26 & & b < = 48) b +=26; else  b /= 2; 4. a. c = 25. b. b = 10. c. e = 213. d. не четное. e. отрицательное или с разными знаками.

Яуж не силен в этой программе но вот вроде должно получиться var   a, b : array [1..16] of integer; begin   for var i : = 1 to 16 do       a[i] : = readlninteger('a[' + i + '] =');     writeln('массив a = ', a);     b : = a;     swap(b[2], b[5]);     swap(b[4], b[9]);     swap(b[7], b[15]);     swap(b[9], b[16]); // повторяем обмен 9, если что?     writeln('массив b = ', b);   end.