Написать программу ввода массива до тех пор, пока сумма введенных элементов не превысит числа 100. На Паскале

Question

Корнил

19 августа, 23:17

+3

Ответы (1)

Знаете ответ на вопрос?

Петуля · Answer 1

Var

sum, i:integer;

a:array[1 ... 1024] of integer;

begin

i:=0;

sum:=0;

repeat

i:=i+1;

readln (a[i]) ;

sum:=sum+a[i];

until sum>100;

end.