Массив R[1]=12, R[2]=-3, R[3]=-5, R[4]= 6, R[5]=14, R[6]=9, R[7]=0, R[8]=8. Определите значение суммы после выполнения следующего фрагмента программы: sum:=0; for i:=3 to 7 do if r[i]<5 sum:=sum+r[i]; writeln (sum); *

Рассматриваются значения массива с индексами от 3 до 7.
Если его значение меньше пяти, то прибавляем к общей сумме, изначально равной 0.
Просмотрим все значения (от 3 до 7):
R[3] = -5 < 5. Сумма = 0 + R[3] = 0 + (-5) = -5
R[4] = 6 > 5. Условие не выполняется.
R[5] = 14 > 5. Условие не выполняется.
R[6] = 9 > 5. Условие не выполняется.
R[7] = 0 < 5. Сумма = -5 + R[7] = -5 + 0 = -5
R[8] не входит в рассматриваемую часть (цикл от 3 до 7).

: -5.