program ArrayOperations;

const
n = 10; //размер массива

var
arr: array[1..n] of integer;
i, countNegatives, sumEvens: integer;

begin
countNegatives := 0;
sumEvens := 0;

//заполнение массива случайными числами и подсчет количества отрицательных элементов на четных местах
for i := 1 to n do
begin
arr[i] := random(20) - 10; //генерация случайного числа от -10 до 10
if (arr[i] < 0) and (i mod 2 = 0) then
countNegatives := countNegatives + 1;
end;

//подсчет суммы четных элементов на нечетных местах
for i := 2 to n step 2 do
begin
if arr[i] mod 2 = 0 then
sumEvens := sumEvens + arr[i];
end;

//замена отрицательных элементов их квадратами
for i := 1 to n do
begin
if arr[i] < 0 then
arr[i] := arr[i] * arr[i];
end;

//вывод результатов на экран
writeln('Количество отрицательных элементов массива, расположенных на четных местах: ', countNegatives);
writeln('Сумма четных элементов массива, расположенных на нечетных местах: ', sumEvens);

end.