Заполнить массив из 1000 элементов значениями индексов массива следующим образом: все нечетные элементы должны быть отрицательными, а четные – положительными. (а[1] = -1, а[3] = --3, а[5] = -5, а[7] = -7, а[9] = -9,… а[999] = -999, а[2] = 2, а[4] = 4, а[6] = 6, а[8] = 8, а[10] = 10,…., а[1000] = 1000.) вывести массив в строку. сделать в pascal abc