Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать
Дана последовательность чисел, среди которых имеется один нуль. Вывести на печатьвсе числа до нуля включительно.
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
Не нашли ответ?
Похожие вопросы