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