Question

С клавиатуры вводятся числа (положительные и отрицательные) и последовательно суммируются их модули. Найти количество введенных чисел, когда их сумма превысила 100. На языке Паскаль пожалуйста 

 

пожалуйста, срочно!!!!

Answer 1

program z1;

var

a,c: integer;

begin

c:=0;

while c<100 do

  begin

    writeln('введите число');

    readln(a);

    if a<0 then a:=a*(-1);

    c:=c+a;

  end;

writeln('Сумма модулей введенных чисел превысело 100');

end.