Дана последовательность из n целых чисел. Определить количество нулей, если их нет, вывести сообщение об этом - Pascal ABC
Формулировка задачи:
Необходимо написать 2 кода. 1 с использованием цикла While. 2 с использованием цикла Until. Помогите пожалуйста
Решение задачи: «Дана последовательность из n целых чисел. Определить количество нулей, если их нет, вывести сообщение об этом»
textual
Листинг программы
var n,i,a,z: integer; begin write('n = '); readln(n); z:=0; i:=1; while i<=n do begin write('A[',i,'] = '); readln(a); if a=0 then inc(z); inc(i); end; if z>0 then writeln(z) else writeln('no'); end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Объявляются переменные: n, i, a, z - типа integer.
- Задается начальное значение переменной z равным 0.
- Задается начальное значение переменной i равным 1.
- Запускается цикл while, который выполняется до тех пор, пока i меньше или равно n (n - это количество целых чисел в последовательности).
- Внутри цикла выводится сообщение «A[», i, '] = », после чего считывается значение переменной a.
- Проверяется, равно ли значение переменной a нулю. Если да, то значение переменной z увеличивается на единицу.
- Значение переменной i увеличивается на единицу.
- После выхода из цикла выводится сообщение о количестве нулей в последовательности, для чего проверяется, больше ли значение переменной z нуля.
- Если значение переменной z больше нуля, то выводится значение переменной z.
- Если значение переменной z равно нулю, то выводится сообщение «no».