Question

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

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.