program kzadach;

uses
  crt;

var
  massiv: array [-50..50] of integer;
  K, bigger, i: integer;

begin
  bigger := 0;
  randomize;
  write('Введите положительное чило K: ');
  read(K);
  // заполняем массив  и выводим
  for i := -50 to 50 do
  begin
    massiv[i] := random(100) - 50;
    write(' ', massiv[i]);
  end;
  // ищем кол-во числе больше K
  for i := -50 to 50 do 
  begin
    if massiv[i] > K then bigger := bigger + 1;
  end;
  writeln;
  Writeln('Введенное число К = ', K);
  Writeln('Количество числел больших K = ', bigger)
  
end.