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

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

1

Ответы и объяснения

2013-05-21T12:23:59+00:00

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.