Предмет: Информатика, автор: bakulenysh

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

Ответы

Автор ответа: Аноним
0
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.
Приложения:
Автор ответа: Royal21
0
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.
Приложения:
Автор ответа: Royal21
0
Можно и так.
Автор ответа: Royal21
0
Ну это да, я не по теме немного =)
Похожие вопросы
Предмет: Другие предметы, автор: leshatop432