// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(ReadInteger(n=),-20,20); a.Println;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i]gt;7 then begin a[i]:=7; Inc(k) end;
  a.Println;
  Writeln(Количество замен равно ,k);
  // если нужно общее количество семерок, замените
  // предыдущую строку следующей:
  // Writeln(Количество семерок равно ,a.Where(x-gt;x=7).Count);
end.

Тестовое решение
n= 15
10 -11 14 12 -9 17 -4 11 -20 14 5 5 -3 -1 -2
7 -11 7 7 -9 7 -4 7 -20 7 5 5 -3 -1 -2
Количество замен равно 6

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(20,-5,8); a.Println;
  var b:=a.Where(x-gt;xlt;gt;0).ToArray; b.Println;
  Writeln(Количество нулей равно ,20-b.Count);
end.

Тестовое решение
-4 0 -5 -1 7 3 6 7 7 0 5 -2 -5 -2 7 0 3 1 7 3
-4 -5 -1 7 3 6 7 7 5 -2 -5 -2 7 3 1 7 3
Количество нулей равно 3