Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

На экран вводится последовательность
натуральных чисел, не превышающих 1000. Последовательность заканчивается
числом 0. Количество чисел в последовательности не превышает 100.
Выведите на экран количество чисел в последовательности (не считая 0),
а потом сами числа.
Пример ввода:
1 3 5 0

Ответ оставил Гость

Var a:array[1..100] of integer; 
b,i:integer; 
begin 
b:=0; 
for i:=1 to 100 do begin read(a[i]); 
if a[i]<>0 then b:=b+1 else break; 
end; 
for i:=1 to b do 
write(a[i], ); 
writeln; 
writeln(Количество чисел в последовательности = ,b); 
end.