Var i,k,s: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
s:=0;
for i:=1 to 15 do
begin
read(f,k);
write(k,' ');
if k<0 then s:=s+k;<br> end;
close(f);
writeln;
writeln('сумма отрицательных: ',s);
end.
-11 57 28 -16 37 92 13 -6 14 39 -19 -59 61 78 27
сумма отрицательных: -111
Файл input.txt во вложении.
Скачать вложение Текст (TXT)