Форум: «ЕГЭ по информатике»

Здравствуйте. Пробовала решить задачу перебором пар чисел с помощью программы, но ответ получался просто огромный. Вот код задачи:

var  k, n: integer; 
 a: array of integer; 
 f: text; 
 begin 
  k:=0; 
  assign (f, '26-j1.txt'); 
   reset (f); 
   readln (f, n); 
   writeln ('n=', n); 
   SetLength (a, n); 
   for var i := 0 to n-1 do read (f, a[ i]); 
   close(f); 
   for var i:=0 to n-2 do 
     for var j:=i+1 to n-1 do 
       if a[ i]+a[j]=100 then k := k+1;; 
   println(k); 
 end.

Потом решила организовать с помощью электронной таблицы. Скопировала данные файла, вставила в первый столбец, удалила первую строку (она нам не нужна). Потом отсортировала числа по возрастанию. В столбце D написала числа по возрастанию (+1) от 1 до 99. В столбце Е написала числа по убыванию (+1) от 99 до 1. В столбце В считаю с помощью СЧЁТЕСЛИ в начальном массиве (столбец А) количество чисел, равных соответствующим значениям построчно столбца D (=СЧЁТЕСЛИ($A$2:$A$8321; "="&D1). В столбце С считаю с помощью СЧЁТЕСЛИ в начальном массиве (столбец А) количество чисел, равных соответствующим значениям построчно столбца Е (=СЧЁТЕСЛИ($A$2:$A$8321; "="&Е1). В столбец F вывела минимум среди пар чисел столбца В и С (=МИН(B1:C1)). потом нашла сумм(F1:F49) и прибавила к ним из строки 50 половину от найденного количества чисел 50 (т.е. 35). У меня получилось 3844. А в ответе 3845. Даже если найти сумму всего столбца F (с 1 по 99 строки) и разделить пополам, то все равно получается 3844.

Пожалуйста, помогите найти в чем я ошибаюсь в программе и в экселе.