Вопрос, который вызвал трудности

Аписать на Паскале программу с использованием оператора Repeat..until, которая запрашивает с клавиатуры набор произвольных целых положительных чисел и ищет их сумму. Признаком окончания последовательности чисел является «0».

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

Аписать на Паскале программу с использованием оператора Repeat..until, которая запрашивает с клавиатуры набор произвольных целых положительных чисел и ищет их сумму. Признаком окончания последовательности чисел является «0».

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program z;  var a,mplus,i:integer;masiv:array of integer;begin  repeat    inc(mplus);    setlength(masiv,mplus);    read(i);    a:=a+i;      until i=0;  writeln(a);end.