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

Question

Михайлина

22 февраля, 23:45

+1

Ответы (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.