70б. pascal. каждый отрицательный элемент массива f(21) возвести в квадрат и вывести исходный и изменённый массивы.

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var a:=ArrRandom(21,-50,50); a.Println;
  for var i:=0 to 20 do
    if a[i]<0 then a[i]:=sqr(a[i]);
  a.Println
end.

Тестовое решение:
-1 -29 28 -1 19 -28 14 2 -33 46 12 27 30 -19 -19 -19 -17 29 -5 31 -27
1 841 28 1 19 784 14 2 1089 46 12 27 30 361 361 361 289 29 25 31 729