Заполнить
массив случайными числами (положительными и отрицательными) из произвольного
диапазона. Вывести созданный массив на экран, расположив элементы в одну строку
через пробелы. Заменить все отрицательные элементы квадратом соответствующего
индекса

const  n = 15;var  i: integer;  a: array[1..n] of integer;begin  Randomize;  writeln('Исходный массив');  for i := 1 to n do   begin    a[i] := Random(100) - 50;    write(a[i]:6);    if a[i] < 0 then a[i] := sqr(i)  end;  writeln;  writeln('Результирующий массив');  for i := 1 to n do write(a[i]:6);  writelnend.Тестовое решение:Исходный массив     3    37    40    17    20   -12   -27     4    34    -1     9    42    -6   -36    28Результирующий массив     3    37    40    17    20    36    49     4    34   100     9    42   169   196    28