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

272

275

Посмотреть ответы 2

Ответы на вопрос:

anja565449

Информатика

4,4(43 оценок)

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 begin var a: =(seqrandom(readinteger('n=')-1,1,99)+seq(.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