Дана последовательность из n целых чисел. Определить количество нулей, если их нет, вывести сообщение об этом - Pascal ABC

Формулировка задачи:

Необходимо написать 2 кода. 1 с использованием цикла While. 2 с использованием цикла Until. Помогите пожалуйста

Код к задаче: «Дана последовательность из n целых чисел. Определить количество нулей, если их нет, вывести сообщение об этом - Pascal ABC»

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.

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ