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

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

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

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

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

Question

Информатика

Мокий

6 января, 22:21

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

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

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

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

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

+5

Ответы (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.