Найти сумму положительных элементов, расположенных после минимального элемента - 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];