Найти сумму положительных элементов, расположенных после минимального элемента - 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];ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
