ДАЮ 50 баллов Pascal Дан массив целых чисел состоящий из n элементов. Найти сумму элементов имеющие нечетные индексы. Посчитать кол-во элементов массива значение которых больше заданных А и кратных 5

const N = 10; var b: array[1..N] of integer; summ, k, A: integer; begin readln(A); summ:=0; k:=0; for i:=1 to N do begin readln(b[i]);  If (b[i] > A) and (b[i] mod 5 = 0) then k:=k+1; If i mod 2 <> 0 then summ:=summ+ b[i]; end; writeln('Summ = ', summ); writeln(k); end.

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin   var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;   var m:=ReadInteger('A=');   Writeln('Сумма с нечетнми номерами: ',     a.Where((x,i)->i mod 2=0).Sum);   Writeln('Количество больших ',m,' и кратных 5: ',     a.Where(x->(x>m) and (x mod 5=0)).Count) end. Тестовое решение: n= 15 60 51 74 17 45 27 83 61 47 79 81 20 39 61 32 A= 28 Сумма с нечетнми номерами: 461 Количество больших 28 и кратных 5: 2