ПАСКАЛЬ.МАССИВЫ.ПОМОГИТЕ С ИНФОРМАТИКОЙ 10 класс 1)Дан массив из 30 элементов найти max>0 и четных 2)min<0 и нечетных 3)max среди элементов индекс кратных 7

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016begin  var a:=ArrRandom(30,-99,99); a.Println;  Writeln(a.Where(x->(x>0) and x.IsEven).Max)end.Тестовое решение:79 -52 -50 -48 0 -99 96 -70 39 -62 59 42 3 -17 17 87 -4 34 -87 34 -22 78 94 76 89 61 -71 -45 -30 396// PascalABC.NET 3.1, сборка 1213 от 04.04.2016begin  var a:=ArrRandom(30,-99,99); a.Println;  Writeln(a.Where(x->(x<0) and x.IsOdd).Min)end.Тестовое решение:-81 98 86 94 -23 27 44 -52 -21 89 -52 58 -79 13 60 -39 90 99 -21 43 25 72 30 -17 -25 47 26 -41 -23 -41-81// PascalABC.NET 3.1, сборка 1213 от 04.04.2016begin  var a:=ArrRandom(30,-99,99); a.Println;  Writeln(Range(6,29,7).Select(i->a[i]).Max)end.Тестовое решение:-70 -16 -1 28 53 -44 -11 56 -54 78 -48 23 -85 29 -87 -30 24 -59 -78 63 -84 -82 -57 64 61 76 50 -37 81 -2829Конечно, проще было все написать в одной программе:// PascalABC.NET 3.1, сборка 1213 от 04.04.2016begin  var a:=ArrRandom(30,-99,99); a.Println;  Writeln(a.Where(x->(x>0) and x.IsEven).Max);  Writeln(a.Where(x->(x<0) and x.IsOdd).Min);  Writeln(Range(6,29,7).Select(i->a[i]).Max)end.Тестовое решение:68 99 57 92 -12 -67 71 -23 58 26 20 -47 6 63 -54 -92 -91 -24 27 -25 75 94 88 65 32 15 -56 -58 -85 -7894-9175