Question

Используя файловый ввод вывод найдите сумму отрицательных элементов из 15 чисел.
Помогите с информатикой!Даю 99 баллов!

Answer 1

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;
  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 во вложении.
 

02d523866a26a32e56e476e7efb7c21e.txt

Answer 2

Спасибо!Ты меня просто спас!