program SumNegativeElements;
var
A: array[1..11] of Real;
i: Integer;
sum: Real;

begin
sum := 0;

// заданный массив
A[1] := -0.6;
A[2] := -1.2;
A[3] := 0.3;
A[4] := -0.8;
A[5] := 1.5;
A[6] := -0.9;
A[7] := -0.3;
A[8] := 0.7;
A[9] := -0.4;
A[10] := -1.1;
A[11] := -0.7;

// вычисление суммы элементов массива, значения которых меньше чем -0,5
for i := 1 to 11 do
begin
if A[i] < -0.5 then
begin
sum := sum + A[i];
end;
end;

writeln('Сумма элементов массива A, значения которых меньше чем -0,5: ', sum);
readln;
end.