Информатика: Проверить находиться ли в массиве данное число.(паскаль)

wolk2289

19.07.2021 05:25

Информатика

Есть ответ 👍

Проверить находиться ли в массиве данное число.(паскаль)

152

251

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

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

jane2284p08aoc

Информатика

4,6(12 оценок)

Var a, b, i, n: integer; s: array [1..10000] of integer; begin read(n); for i: =1 to n do read(s[i]); read(b); for i: =1 to n do if s[i]=b then inc(a); if a< > 0 then write ('встречается') else write ('не встречается'); end.p.s. надеюсь на и лучший ответ.

Aliotu

Информатика

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

Uses crt; const n=10; var a: array [1..n] of integer; x,k,z: integer; begin k: =0; for x: =1 to n do begin write('a[',x,']: '); readln(a[x]); end; write('введите число: '); readln(k); for x: =1 to n do if a[x]=k then inc(z); if z> 0 then writeln('число ',k,' встречается в массиве ',z,' раз(-а).') else writeln('число ',k,' не встречается в массиве'); end.