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

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

program m1;
var a: aarray [1..10] of integer;
i,n,k: integer;
begin
readln (n);
for i:= 1 to n do readln (a[i]);
k:= 0;
for i:= 1 to n do begin
if a[i]<>0 then k:= k+1;
end;
writeln (k) {если 0 нужно учитывать в количестве то...} writeln (k+1);
end.



Подсчет количества чисел в последовательности
Чтобы написать программу, которая будет подсчитывать количество чисел в последовательности, заканчивающейся нулем, можно использовать цикл, который будет считывать числа до тех пор, пока не будет введен ноль. При каждом считывании числа будет увеличиваться счетчик. Вот пример программы на языке Python:
```python count = 0 number = int(input("Введите число: "))
while number != 0: count += 1 number = int(input("Введите число: "))
print("Количество чисел в последовательности:", count) ```
В этой программе переменная `count` используется для подсчета количества чисел, а переменная `number` используется для считывания чисел с клавиатуры. Цикл `while` выполняется до тех пор, пока введенное число не равно нулю. При каждой итерации цикла счетчик `count` увеличивается на единицу. Когда пользователь вводит ноль, цикл прекращается, и программа выводит количество чисел в последовательности.
Например, если пользователь введет следующую последовательность чисел: 5, 3, 2, 0, то программа выведет: "Количество чисел в последовательности: 3".
Примечание: В данном примере предполагается, что пользователь будет вводить числа с клавиатуры. Если вам нужно считывать последовательность чисел из файла или другого источника, вам может потребоваться изменить код программы соответствующим образом.


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili