profile
Опубликовано 6 лет назад по предмету Информатика от vita961

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

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

Пример ввода:
1 3 5 0

  1. Ответ
    Ответ дан SanGreen74
    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.
Самые новые вопросы