var a,b,sum:integer; arr :array [0..7] of integer; begin sum:=0; write('введите элементы массива : '); for a:=0 to 7 do begin read(b); arr[a]:=b; end; for a:=0 to 7 do begin if arr[a]<0 then sum:=sum+arr[a]; end; writeln('сумма отрицательных элементов массива = ',sum); end.
Answers & Comments
Verified answer
var a,b,sum:integer;arr :array [0..7] of integer;
begin
sum:=0;
write('введите элементы массива : ');
for a:=0 to 7 do begin
read(b);
arr[a]:=b;
end;
for a:=0 to 7 do begin
if arr[a]<0 then sum:=sum+arr[a];
end;
writeln('сумма отрицательных элементов массива = ',sum);
end.