Question

Проверьте, есть ли среди данных n чисел нули. вводится число n, а затем n чисел. выведите yes, если среди введенных чисел есть хотя бы один нуль, или no в противном случае.

Answer 1

Program Z_n;
var a:array[1..10000] of integer;
N,c,i:integer;
Begin
Readln(N);
For i:=1 to N do begin
Readln(a[i]); // вводите числа через enter
if a[i]=0 then c:=1;
end;
if c=1 then writeln('YES')
else writeln('NO');
end.

Answer 2

var
  x, j, n, i: integer;
  a: array [1..100] of string;
begin
  write('Введите кол-во чисел: ');
  read(n);
  writeln('Введите числа: ');
  for i := 1 to n + 1 do
   begin
    readln(A[i]);
    for j := 1 to length(A[i]) do
      if a[i][j] = '0' then inc(x);
   end;
  writeln('Кол-во нулей: ', x);
end.