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;Beginp:=0;For i:=l To n DoBeginA[i]:=-50+Random(151);If A[i]<=10 Then p:=p+A[i];End;Writeln(p);Readln;End. 3. Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти:удвоенную сумму положительных элементов;и вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго). 4. Определить, есть ли две пары соседних элементов с одинаковыми знаками.