Найти сумму отрицательных из 10 любых вещественных чисел введенных…

program test; var i: integer; n, sum: real; begin sum: =0; write ('Enter 10 numbers: '); for i: =1 to 10 do begin read (n); if n < 0 then sum: =sum+n; end; writeln ('Sum=', sum); readln; end.