1. Правильно ли описан массив С? Если нет, то что надо изменить? Const nl=25; Type m=Array[15..-nl] Of Integer; Var С: m; 2. Что получится в результате выполнения программы? Program Variant2; Const n=10; Type myarray=Array[1..n] Of Integer; Var D: myarray; i: Byte; p: Integer; Begin p:=0; + For i:=l To n Do Begin D[i]:=-25+Random(51); If D[i]<0 Then p:=p+D[i]; End; Writeln (p); Readln; End. 3. Дан массив целых чисел, состоящий из 25 элементов. Заполнить его с клавиатуры. Найти: сумму элементов, имеющих нечетные индексы; число элементов массива, значения которых больше заданного числа А и кратны 5. 4. Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.