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