Предмет: Информатика,
автор: 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.
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.
Приложения:
![](https://files.topotvet.com/i/4fe/4fe106e00bc404db8ec7227bb081a9fc.jpg)
Автор ответа:
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.
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
Можно и так.
Автор ответа:
0
Ну это да, я не по теме немного =)
Похожие вопросы
Предмет: Математика,
автор: olyaolya2567
Предмет: Другие предметы,
автор: leshatop432
Предмет: Математика,
автор: varsmertina
Предмет: Математика,
автор: AlinaLove303