Найти сумму положительных элементов, расположенных после минимального элемента - Pascal ABC

Узнай цену своей работы

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

Найти сумму положительных элементов, расположенных после минимального элемента в массиве A(15) Как сделать после минимального, не могу понять, помогите пожалуйста

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

textual
Листинг программы
min:=a[1];
for i:=2 to n do
 if a[i]<min then
  begin
   min:=a[i];
   index:=i;
  end;
sum:=0;
for i:=index+1 to n do
 if a[i]>0 then
  sum:=sum+a[i];

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

min := a[1];
for i := 2 to n do
  if a[i] < min then
    begin
      min := a[i];
      index := i;
    end;
sum := 0;
for i := index + 1 to n do
  if a[i] > 0 then
    sum := sum + a[i];

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы