program SumOfElementsInInterval;
varA: array[1..10] of Real;sum: Real;i: Integer;
beginsum := 0;
A[1] := 0;A[2] := -1.9;A[3] := 2.9;A[4] := 7.5;A[5] := -3;A[6] := 1.86;A[7] := -1;A[8] := -3.5;A[9] := -0.5;A[10] := 5;
for i := 1 to 10 dobeginif (A[i] >= -3) and (A[i] <= 3) thensum := sum + A[i];end;
writeln('Сумма элементов массива A, значение которых принадлежит интервалу [-3,3]: ', sum);
end.
program SumOfElementsInInterval;
var
A: array[1..10] of Real;
sum: Real;
i: Integer;
begin
sum := 0;
A[1] := 0;
A[2] := -1.9;
A[3] := 2.9;
A[4] := 7.5;
A[5] := -3;
A[6] := 1.86;
A[7] := -1;
A[8] := -3.5;
A[9] := -0.5;
A[10] := 5;
for i := 1 to 10 do
begin
if (A[i] >= -3) and (A[i] <= 3) then
sum := sum + A[i];
end;
writeln('Сумма элементов массива A, значение которых принадлежит интервалу [-3,3]: ', sum);
end.