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

255

446

Посмотреть ответы 3

Ответы на вопрос:

KoTuKFeed

Информатика

4,8(17 оценок)

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.

арт1645

Информатика

4,7(65 оценок)

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.