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

2

Ответы и объяснения

  • Участник Знаний
2013-12-01T12:22:41+00:00
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.
2013-12-01T12:28:30+00:00
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.
Можно и так.
Разница в том, что 0 может быть как отдельным числом, так и цифрой в составе числа.
Комментарий удален
Ну это да, я не по теме немного =)