Масса каждого из 25 человек хранится в массиве. Определить среднюю массу - Free Pascal

Формулировка задачи:

Масса каждого из 25 человек хранится в массиве. Людей, имеющих массу более 100 кг, будем условно называть полными (известно, что есть по меньшей мере один такой человек). Определить среднюю массу полных людей (и среднюю массу остальных людей).

Решение задачи: «Масса каждого из 25 человек хранится в массиве. Определить среднюю массу»

Листинг программы

var
  i, n : longint;
  a : array [1..64] of longint;
  ans, p, h : double;
 
begin
  for i := 1 to 25 do
    read (a[i]);
  for i := 1 to 25 do begin
    if a[i] <= 100 then
      h := h + a[i]
    else begin
      p := p + a[i];
      inc (n);
    end;
  end;
  writeln (p / n :0:3);
  writeln (h / (25 - n) :0:3);
end.

Объяснение кода листинга программы

Объявляются переменные: — i, n — для цикла; — a — массив для хранения массы; — ans, p, h — для вычисления средней массы.
Заполняются значениями массива a с помощью цикла for.
Следующий цикл for вычисляет среднюю массу. Внутри него проверяется значение массы. Если оно меньше или равно 100, то оно прибавляется к переменной h. Если больше 100, то прибавляется к переменной p и увеличивается на единицу счётчик n.
Вычисляется среднее значение массы, хранящейся в переменной p, делённое на количество человек, хранящихся в переменной n, и выводится на экран.
Выводится на экран средняя масса, вычисленная на основе переменных h и (25-n), где 25 - количество человек, для которых проводился расчёт.