На экран вводится последовательность

натуральных чисел, не превышающих 1000. Последовательность заканчивается

числом 0. Количество чисел в последовательности не превышает 100.

Выведите на экран количество чисел в последовательности (не считая 0),

а потом сами числа.

Question

Информатика

Панюта

13 августа, 02:33

На экран вводится последовательность

натуральных чисел, не превышающих 1000. Последовательность заканчивается

числом 0. Количество чисел в последовательности не превышает 100.

Выведите на экран количество чисел в последовательности (не считая 0),

а потом сами числа.

+1

Ответы (1)

Знаете ответ?

Радий · Answer 1

Var

x, k:integer;

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

begin

k : = 0;

read (x) ;

while x 0 do

begin

k : = k + 1;

a[k] : = x;

read (x)

end;

writeln (k) ;

for x : = 1 to k do

write (a[x],' ')

end.