Question

Помогите решить плз !!!!
В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число. Написать функцию без параметров для нахождения суммы этих положительных чисел.
Заранее спасибо !!! 
Написать нужно на Паскаль АВС

Answer 1

procedure sumd;
var s,n: integer;
begin
  s:=0; n:=0;
  repeat
    s:=s+n;
    read(n);
  until n<0;
  writeln('сумма: ',s);
end;
// сновная программа
begin  
  assign(input,'input.txt');
  sumd;
end.

файл input.txt:    11 15 21 13 -5
сумма: 60

Answer 2

Спасибо Вам большое !!!