Question

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

Answer 1

var

 arr: array [1..100]of integer;

 i, size: integer;

begin

 writeln('Введите размерность последовательности:  ');

 readln(size);

 for i := 1 to size do

   readln(arr[i]);

 i := 1;

 repeat

   writeln(arr[i], '  ');

   inc(i);

 until arr[i] = 0;

 writeln(0);

end.