Вводится число, если это число отрицательное, то его надо умножить на 100, если положительное, то прибавить 100

Program s; var a,b: integer; begin readln(a); if(a < 0  )then a: = a * 100 else a: = a + 100; writeln(a); readln; end. 

везде имя массива - это a. массив заполняется через цикл for.

а)количество элементов: 15 (сколько раз цикл заполнения массива проработает; в нашем случае - 15)

random(201) - 100 можно записать следующим образом:

случайное число в диапазоне от 0 до 200, от которого отнимается 100, что позволяет делать числа отрицательными.

б)количество элементов: 10

значения (число[индекс]): 1[1], 2[2], 3[3], 4[4], 5[5], 6[6], 7[7], 8[8], 9[9], 10[10]

в)количество элементов: 5

значения (число[индекс]): 3[1], 5[2], 7[3], 9[4], 11[5]

Var   n, i, j, askthemountains: longint;   a: array of longint;   fl: text; begin   assign(fl, 'input.txt');   reset(fl);   readln(fl, n);   setlength(a, n);   for i : = 0 to (n - 1) do     readln(fl, a[i]);   close(fl);   assign(fl, 'output.txt');   rewrite(fl);       for i : = 0 to n - 1 do     for j : = i to n - 1 do       if (a[i] > a[j]) then       begin         askthemountains : = a[i];         a[i] : = a[j];         a[j] : = askthemountains;       end;   for i : = 0 to n-1 do     writeln(fl, a[i]);   close(fl); end.