Составить программу вычисления суммы элементов массива А, значения которых меньше чем -0,5. Проверить работу программы за заданном массиве А(11).
Паскаль

vara: array[1..100] of real;i,n:Integer;sum: real;beginWriteLn('Введите количество элементов массива');Readln(n);WriteLn('Массив');for i:=1 to n dobegina[i]:=(random(100)-50)/10;Write(a[i]:5);if a[i]< -0.5 then sum:=sum +a[i];end;Writeln;Writeln('Сумма элементов меньших -0,5 = ', sum);end.