70Б. Pascal. Каждый отрицательный элемент массива F(21) возвести в квадрат и вывести исходный и изменённый массивы.

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016begin  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.Printlnend.Тестовое решение:-1 -29 28 -1 19 -28 14 2 -33 46 12 27 30 -19 -19 -19 -17 29 -5 31 -271 841 28 1 19 784 14 2 1089 46 12 27 30 361 361 361 289 29 25 31 729