Uses crt;const nmax=100;var a:array [1..nmax] of real; i,n: byte; s: real;beginrepeatwrite('Количество элементов массива, не более ',nmax,', n='); readln(n);until n in [1..nmax];s:=0;writeln ('Введите массив в строку: ');for i:=1 to n do begin read (a[i]); if a[i]<0 then s:=s+a[i]; end;writeln;writeln ('Сумма отрицательных элементов = ',s:0:2);end.
