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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.