Дан одномерный массив R из N элементов, значения которых находятся в диапазоне от -22 до 362. Сложить все отрицательные элементы, стоящие на нечётных местах.

var r:array[1..1000] of integer;i,n,sum:integer;beginsum:=0;write ('Введите кол-во элементов в массиве: ');readln (n);write ('Массив: ');for i:=1 to n dobeginr[i]:=random(385)-22;write (r[i],' ');end;for i:=1 to n dobeginif (i mod 2 <> 0) and (r[i]<0) then sum:=sum+r[i];end;writeln;write ('Сумма = ',sum);end.