Question

Срочно помогите, заранее спасибо

Answer 1

Нужно исправить третью с конца строчку на-->

if a[k]<0 then s:=s+a[k]; (так как в случае, если число отрицательно,то мы к сумме прибавляем это число)

(в строчке на фото в случае, если число отрицательно, мы прибавляли всегда первый элемент)