1- Правильно ли описан массив D? Если нет, то что надо изменить? Type odm=Array[-n..n] Of Integer; Var D: odm; 2. Что получится в результате выполнения программы? Program Variant4; Const n=25; Type myarray=Array[1..n] Of Integer; Var A: myarray; i: Byte; p: Integer; Begin p:=0; For i:=l To n Do Begin A[i]:=-50+Random(151); If A[i]<=10 Then p:=p+A[i]; End; Writeln(p); Readln; End. 3. Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: удвоенную сумму положительных элементов; и вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго 4. Определить, есть ли две пары соседних элементов с одинаковыми знаками.