Задача 3 Написать программу, которая определяет, сколько раз в массиве случайных чисел А[1..100] встречается число X, введенное с клавиатуры.​

const

N = 100;

format = 3;

var

arr: array [1..N] of integer;

i: byte;

count: byte;

ch: Integer;

begin

writeln('Введите число: ');

read(ch);

randomize;

count := 0;

for i := 1 to N do

begin

arr[i] := random(20);

write(arr[i] : format);

if arr[i] = ch then

count := count + 1 ;

end;

writeln;

writeln('Число ', ch, ' встречается: ', count, ' раз');

end.

from random import randint

a = [randint(-100,100) for i in range(100)]

f = int(input("какое число будем искать: "))

count = 0

for i in a:

if i == f:

 count += 1

print(f"Число {f} встретилось {count} раз")