Дан одномерный массив, содержащий вещественные числа. Для каждого элемента массива напечатать число отрицательных элементов, идущих за ним - Turbo Pascal

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

Дан одномерный массив, содержащий вещественные числа. Для каждого элемента массива напечатать число отрицательных элементов, идущих за ним Помогите решить задачку =)

Решение задачи: «Дан одномерный массив, содержащий вещественные числа. Для каждого элемента массива напечатать число отрицательных элементов, идущих за ним»

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

program Kiryshka;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..20] of Integer;
    q,i,n:Integer;
begin
  q:=0;
  Write('Enter size of array = ');Readln(n);
  for i:=1 to n do
    begin
      Write('Array [',i,'] = ');Readln(mas[i]);
    end;
  Writeln;
  Writeln('element[count minus elment]');
  for i:=1 to n do
    begin
      if (mas[i]>0) then Write(' ');
      Writeln(mas[i],'[',q,']');
      if (mas[i]<0) then Inc(q);
    end;
Writeln('The End.');
Readln;
end.

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

Этот код написан на Turbo Pascal и выполняет следующие действия:

Запрашивает у пользователя размер массива и сохраняет его в переменной n.
Создает одномерный массив mas из 20 элементов, каждый из которых является целым числом.
Выводит на экран заголовок Array вместе с номером каждого элемента массива.
Выводит на экран заголовок element[count minus elment] и затем выводит на экран отрицательные элементы массива, начиная с индекса q.
После завершения цикла выводит на экран заголовок The End.. Примечание: В этом коде используется переменная q для отслеживания индекса текущего отрицательного элемента. Переменные i и n используются для итерации по массиву и подсчета количества отрицательных элементов.