Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад