Задание 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.