Элементы массива вводят с клавиатуры. Найти сумму элементов на отрезке от -5 до 5.

Вопрос школьника по предмету Информатика

Элементы массива вводят с клавиатуры. Найти сумму элементов на отрезке от -5 до 5.

Ответ учителя по предмету Информатика

const

    handsfree = false;

var

    a: array[1..100] of real;

    i, n: integer;

    sum, product, harmonic: real;

begin

    {ввод массива}

    if handsfree then

        n := random(20) + 5

    else begin

        write(‘n = ‘);

        readln(n);

    end;

    

    writeln(‘Данные массива:’);

    for i := 1 to n do

    begin

        if handsfree then begin

            a[i] := random(100) — 50;

            write(a[i], ‘ ‘);

        end

        else readln(a[i]);

    end;

    writeln();

    

    

    {подсчет суммы и произведения и агригатов}

    sum := 0;

    for i := 1 to n do

        if abs(a[i]) <= 5 then

            sum := sum + a[i];

    writeln(‘sum = ‘, sum);

end.