1. Правильно ли описан массив А? Если нет, то что надо дописать?Type myarray=Array[0. . -n] Of Integer;Var A: myarray;2. Что получится в результате выполнения программы?Program Variant5;Const n=12;Type myarray=Array[1. . n] Of Integer;Var C: myarray;i: Byte; p: Integer;BeginFor i:=l To n DoBeginC[i]:=-25+Random(71);If C[i] Mod 3=0 Then p:=p+l;End;Writeln(p);Readln;End. 3. Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с клавиатуры. Найти:• сумму отрицательных элементов;• число тех элементов, значения которых положительны и не превосходят заданного числа А. Найти номер последней пары соседних элементов с разными знаками.