Решите через дано 166,169,171

#include <iostream>

using namespace std;

int main() {
    int i,n,k;
    cout<<"Vvedite chislo elementov massiva: ";
    cin>>n;
    int a[n];
    for (i=0; i<n; i++){
        cout<<"Vvedite "<<i+1<<"-e chislo massiva: ";
        cin>>a[i];
    }
    cout<<"Vvedite znachenie k: ";
    cin>>k;
    int m=0;
    for(i=0;i<n;i++) if (abs(a[i])>2*k) m++;
    cout<<"Naydeno elementov: "<<m<<"\n";
    system("pause");
    return 0;
}

Тестовое решение:

Vvedite chislo elementov massiva: 6
Vvedite 1-e chislo massiva: -7
Vvedite 2-e chislo massiva: 2
Vvedite 3-e chislo massiva: 0
Vvedite 4-e chislo massiva: -5
Vvedite 5-e chislo massiva: 8
Vvedite 6-e chislo massiva: 3
Vvedite znachenie k: 2
Naydeno elementov: 3
Для продолжения нажмите любую клавишу . . .

Программа на языке Паскаль.

const N=30;
var i, s0, k, a: integer;
      b: array [1..N] of integer;
begin
      readln(a);
      s0:=0;
      k:=0;
      randomize;
      for i:=1 to N do
      begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
                if (b[i]<0) then s0:=s0+b[i];
                if (b[i]>0) and (b[i]<=a) then inc(k);
      end;
      if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
      else writeln('отрицательных чисел нет');
      if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
      else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.