1. Правильно ли описан массив А? Если нет, то что надо изменить?Type odmyarray=Array[I. . n+20] Of Integer;Var A: odmyarray;Что получится в результате выполнения программы?Program Variant3;Const n=17;Type myarray=Array[1. . n] Of Integer;Var B: myarray;i: Byte; p: Integer;Beginp:=0;For i:=l To n DoBeginB[i]:=-35+Random(121);If C[i] Mod 10 = 0 Then p:=p+l;End;Writeln (p);Readln;End. 3. Дан массив целых чисел, состоящий из 15 элементов. Заполнить его с клавиатуры. Найти:сумму положительных элементов, значения которых меньше 10;и вывести индексы тех элементов, значения которых кратны 3 и 5. 4. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.