Массив r[1]=12, r[2]=3, r[3]=-5, r[4]= -6, r[5]=4, 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);

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:array of integer := (0,12,3,-5,-6,4,9,0,8);
var sum:= 0;
for var i := 3 to 7 do
 if a[i]>5 then
 sum:=sum+a[i];
 writeln (sum);
end.

ответ: 9