Question

Дан целочисленный массив, в нём есть один ноль. Вывести на экран все элементы, расположенные до нуля включительно

Answer 1

repeat
a:=a+1;
b:=Arr[a];
writeln(b);
until b = 0;

Вероятно так