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

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=(SeqRandom(ReadInteger('n=')-1,1,99)+Seq(0)).ToArray.Shuffle;
  Writeln('Исходный набор'); a.Println;
  Writeln('Элементы до нуля'); a.TakeWhile(x->x<>0).Println
end.

Тестовое решение:
n= 20
Исходный набор
45 28 62 16 54 29 50 5 39 32 94 95 57 0 53 2 4 86 11 23
Элементы до нуля
45 28 62 16 54 29 50 5 39 32 94 95 57

Информация — от латинского слова "information", что означает сведения, разъяснения, изложение.                                                                       Информа́тика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.                                                                Программи́рование — процесс создания компьютерных программ.

Цикл – это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.

10.1.Оператор цикла WHILE (цикл ПОКА).

Формат оператора: WHILE логическое выражение DO;

Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin … end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.

ПРИМЕР 1. Программа подсчета суммы S первых 1000 членов гармонического ряда

1+1/2+1/3+1/4+…1/N.

Program Summa;

Var S:real;

N:integer;

Begin

S:=0; N:=0;

While n<1000 do

Begin

N:=n+1;

S:=s+1/n

End;

Writeln(s);

Readln

End.

Объяснение: