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

Спасибо

const nx =20;var D:array[1..nx] of integer; i,n,k,sum:integer;beginwrite('Введите число элементов n');Readln(n);for i:=1 to n do beginD[i]:= random(100)-50;write(D[i]:4);if (D[i]<0) and (i mod 2 = 0) then k:=k+1;if (D[i] mod 2 =0) and (i mod 2 = 1) then sum:= sum + D[i];if (D[i]<0) then D[i]:= D[i] * D[i];end;writeln;writeln(k);writeln(sum);for i:=1 to n dowrite(D[i]:8);end.