Найти номер первого положительного элемента массива и произведение последующих элементов - Pascal

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

дан масив А(10). найти номер первого положительного элемента и произведение последующих элементов

Решение задачи: «Найти номер первого положительного элемента массива и произведение последующих элементов»

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

  p:=1;
  i:=1; while (i<=10) and (a[i]<=0) do Inc(i);
  if i>10 then WriteLn('нет положительных')
  else begin
    WriteLn('номер 1-го положительного ',i);
    if i=10 then WriteLn('он последний')
    else begin
      for i:=i+1 to 10 do p:=p*a[i];
      WriteLn('произведение последующих ',p);
    end;
  end;

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

В этом коде:

p:=1; — это инициализация переменной p единицей.
i:=1; — это инициализация переменной i единицей.
while (i<=10) and (a[i]<=0) do Inc(i); — это цикл, который будет выполняться до тех пор, пока переменная i меньше или равна 10 и элемент массива a[i] меньше или равен нулю. Условие цикла изменяется с помощью оператора Inc(i), который увеличивает значение i на единицу.
if i>10 then WriteLn('нет положительных') — это проверка, если значение переменной i больше 10, то выводится сообщение нет положительных.
else begin — это начало блока команд, которые выполняются, если значение переменной i меньше или равно 10 и элемент массива a[i] меньше или равен нулю.
WriteLn('номер 1-го положительного ',i); — это вывод сообщения с номером первого положительного элемента массива.
if i=10 then WriteLn('он последний') — это проверка, если значение переменной i равно 10, то выводится сообщение он последний.
for i:=i+1 to 10 do p:=p*a[i]; — это цикл, который будет выполняться от i+1 до 10, умножая значение переменной p на каждый элемент массива a[i].
WriteLn('произведение последующих ',p); — это вывод произведения последующих элементов массива.
end; — это конец блока команд.