В одномерном массиве, состоящем из n элементов, вычислить: 1)количество отрицательных элементов массива,расположенных на четных местах 2)сумму четных элементов массива, расположенных на нечетных местах. Заменить все отрицательные элементы массива их квадратами. Паскаль

Предыдущий
вопрос Следующий
вопрос

program ArrayOperations;

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

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

begi
countNegatives := 0
sumEvens := 0;

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

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

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

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

end.