Var eri
i,si integer
beein
S : = 0; i:=o
repeat
inc cili
S: ES +
intills 10):
write (s)
end​

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);
  writeln
end.

Тестовое решение:

Исходный массив
     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

А) ключ (от замка) - ключ (родник), ручка (для письма) - ручка (дверная), лист (железа) - лист (дерева) 
б) весенняя погода - весеннее настроение, золотые изделия - золотые руки, игрушка для детей 
- быть игрушкой в чьих-либо руках 
в) хранилище-склад, хворь - болезнь, гиппопотам 
- бегемот, ключ - родник, расслабление - релаксация, радость - веселье 
г) ключ (от замка) - ключ (родник), коса (волос) -коса (инструмент), лук (оружие) - лук (растение) 
д) индустриализация, индивидуализация, зона поражения, дифференциал, интеграл, релаксация, мотивация, экономическое развитие