Определить процент положительных, отрицательных и нулевых элементов - Free Pascal

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

Вводится последовательность из N произвольных чисел. Определить процент положительных, отрицательных и нулевых элементов. Как определить процент с помощью цикла: FOR, WHILE, REPEAT.

Решение задачи: «Определить процент положительных, отрицательных и нулевых элементов»

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

uses math;
var
  N, i : Integer;
  P : array[TValueSign] of integer;
  s : array[TValueSign] of string = ('отрицательных', 'нулевых', 'положительных');
  R : Real;
begin
  Write('n = '); ReadLn(N);
  // для for         // для while       // для repeat
  for i := 1 to N do // i := 0;         // i := 0;
                     // while i < N do  // repeat
    begin            // begin           //   Inc(i)
                     //   Inc(i);
      Write(i, ' число = '); ReadLn(R);
      Inc(P[sign(R)]);
    end;             // end;            // until i = N;
 
  for i in TValueSign do
    writeln('Процент ' + s[i] + ' чисел: ', p[i]*100/N:0:2);
end.

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

Программа на языке Free Pascal.
Задача - определить процент положительных, отрицательных и нулевых элементов.
Введен массив P для подсчета количества положительных, отрицательных и нулевых чисел.
Введен массив s для хранения названий групп чисел.
Введена переменная R для хранения числа, введенного пользователем.
Введен цикл for для перебора чисел от 1 до N.
Внутри цикла происходит считывание числа от пользователя и увеличение соответствующего элемента массива P.
После окончания цикла выводится процент положительных, отрицательных и нулевых чисел.
Для вычисления процента используется функция sign, определяющая знак числа.
Для вывода чисел в формате с плавающей точкой используется спецификатор 0:2.
Программа завершается точкой в конце.