Ноль или не ноль

AvariItigail

23 апреля 2016

Проверьте, есть ли среди данных N чисел нули.

Входные данные
Вводится число N, а затем N чисел.

Выходные данные
Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.

Исходный код на языке Pascal

var
  n, a, i, k: integer;

begin
  k := 0;
  read(n);
  for i := 1 to n do 
  begin
    read(a);
    if (a = 0) then
    begin
      writeln('YES');
      k := 6;
      break;
    end;
  end;
  if (k <> 6) then 
    writeln('NO');
end.