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

Паскаль

Var

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

i, n:Integer;

sum: real;

begin

WriteLn ('Введите количество элементов массива') ;

Readln (n) ;

WriteLn ('Массив') ;

for i:=1 to n do

begin

a[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.