Дана последовательность из 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.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Объявляются переменные: n, i, a, z - типа integer.
  2. Задается начальное значение переменной z равным 0.
  3. Задается начальное значение переменной i равным 1.
  4. Запускается цикл while, который выполняется до тех пор, пока i меньше или равно n (n - это количество целых чисел в последовательности).
  5. Внутри цикла выводится сообщение «A[», i, '] = », после чего считывается значение переменной a.
  6. Проверяется, равно ли значение переменной a нулю. Если да, то значение переменной z увеличивается на единицу.
  7. Значение переменной i увеличивается на единицу.
  8. После выхода из цикла выводится сообщение о количестве нулей в последовательности, для чего проверяется, больше ли значение переменной z нуля.
  9. Если значение переменной z больше нуля, то выводится значение переменной z.
  10. Если значение переменной z равно нулю, то выводится сообщение «no».

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы