Вычислить сумму элементов массива, расположенных после первого положительного элемента - Turbo Pascal (33828)

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

В одномерном массиве, состоящем из n вещественных элементов, вычислить Сумму элементов массива, расположенных после первого положительного элемента.

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

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

uses crt;
var  a:array[1..100]  of real;
i,n:integer;
s:real;
BEGIN
clrscr;
  repeat
   write('n = ');
   read(n);
  until n>0;
 
   for i:=1 to n do
   a[i]:=random(10+3);
 
    for i:=1 to n do
     write(a[i]:3:2,'  ');
     writeln;
     s:=0;
     for i:=1 to n do
      if a[i]>0 then
       s:=s+a[i+1];
 
       if s=0 then
        write('Елемент последнний , или положительного нету...')
       else
        write('Сумма = ',s:3:2);
readkey;
END.

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

В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
Затем объявляются переменные: a - массив из 100 элементов типа real (числа с плавающей точкой), i - переменная типа integer (целое число), n - переменная типа integer, s - переменная типа real (число с плавающей точкой).
Выводится сообщение n =, и считывается значение переменной n. Этот цикл повторяется до тех пор, пока n не станет больше нуля.
Затем заполняется массив a случайными числами в диапазоне от 10 до 100.
Выводится сообщение для каждого элемента массива a, начиная с 1 и до n.
Затем начинается цикл, в котором переменной s инициализируется значение 0. Этот цикл будет выполняться для каждого элемента массива a, начиная с 1 и до n.
Внутри цикла проверяется условие: если a[i] больше 0, то к переменной s прибавляется значение a[i+1].
Если значение s равно 0, то выводится сообщение Елемент последний, или положительного нет....
Если значение s не равно 0, то выводится сообщение Сумма =, и выводится значение переменной s.
В конце кода считывается символ-терминатор из ввода, чтобы завершить чтение.