Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дана последовательность произвольных чисел. найти количество чисел, сумма которых не превышает заданное число. АВС паскаль

Ответ оставил Гость

Var sum, n, a, max: integer;
begin
write(введите макс число );
read(max);
sum:=0; n:=0;
writeln(вводите числа);
while (true) do
begin
read (a);
if (a+sum) > max then break;
sum:=sum+a;
inc(n);
end;
write(кол во чисел  , n);
end.