Вывод ответа #1862552035

var i:byte;
sum:integer;
const massiv = (4,7,-9,5,1,-5,10,7);
begin
sum=0;
for i:=0 to length(massiv)-1 do
begin
if massiv[i]>5 then
sum:=sum+massiv[i];
end;
end;
Возможно неправильно объявлен массив(точно не помню как обьявлять массив константой)
length - функция должна возвращать длинну массива
результат будет в переменной sum