1.дан массив целых чисел, найти среднее арифметическое всех элементов массива. 2. дан массив целых чисел, найти количество отрицательных элементов массива. 3. дан массив целых чисел, найти количество чётных чисел в массиве.

Текст программы (pascal) var   a,b,c,d,e: byte;   k: integer; begin   k: =0;   for a: =1 to 9 do begin       for b: =0 to 9 do           if b< > a then begin               for c: =0 to 9 do                   if (c< > a) and (c< > b) then begin                       for d: =0 to 9 do                           if (d< > a) and (d< > b) and (d< > c) then begin                               e: =0;                               repeat                                   if a*c-c*e=a-b+c+d+e then inc(k);                                   e: =e+2                               until e< 9                           end                   end           end   end;   writeln(k) end. тестовое решение: 190

// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! begin   var x: =readarrinteger(readinteger('n='));   var p: =x.findindex(t-> t> 10);   if p=-1 then writeln('нет элементов, больших 10')   else begin       write('ср.арифм.значений до ',x[p],' равно ');       if p=0 then writeln('0')       else writeln(x[: p].average);       var s: =x[p+1: ].where(t-> t< 0);       write('ср.арифм. отрицательных значений после ',x[p],' равно ');       if s.count=0 then writeln('0')       else writeln(s.average)       end end. пример n= 12 4 1 -13 15 13 0 9 5 -12 9 4 -11 ср.арифм.значений до 15 равно -2.66666666666667 ср.арифм. отрицательных значений после 15 равно -11.5