Информатика, опубликовано 2018-08-22 23:07:41 by Гость
Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа до нуля включительно. 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->x0).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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на