Определите назначение программы на Паскале :
program test1;
const N=1;

var A: array[1..N]of integer;
I: integer; S: real;
begin
for I:=1 to N do read(A[i]);
S:=0;
for I:=1 to N do
if A[I] mod 2=0 then S:=S+1;
S:=S*100/N;
writeln (S);
end.

По сравнению с просмотром кино, при работе на компьютере мы сосредатачиваемся на более мелких областях и более внимательно, а не смотрим на весь экран в целом. Так же к монитору мы сидим куда ближе чем к телевизору. Потому мигание и прочие деформации картики становятся более заметными. Потому так ценится плотность пикселей и цветопередача монитора. Например плотность пикселей в современных смартфонах и планшетах обычно выше чем у мониторов, потому что мы смотрим на них еще с более близкого растояния чем на мониторы. 
Надеюсь все выше сказанное дает понять причину увиличения частоты обновления
Сама же настройка этой частоты зависит от самого монитора и тп

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество колонок в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=0;
  foreach var column in a.Cols do
    if column.Zip(column.OrderByDescending(x->x),(x,y)->x=y).All(x->x=True)
    then k+=1;
  Writeln('k=',k)
end.

Пример
Количество строк в массиве: 3
Количество колонок в массиве: 9
*** Исходный массив [3,9] ***
  42  29 -18 -13  75 -55  73 -41 -34
 -13 -25  62 -83  80  83  70 -75  91
 -59  45  87  45  18 -87  62   9  27

k=2