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

Паскаль

Const nx = 20;

var D:array[1 ... nx] of integer; i, n, k, sum:integer;

begin

write ('Введите число элементов n') ;

Readln (n) ;

for i:=1 to n do begin

D[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 do

write (D[i]:8) ; end.