Написать программу, которая вычисляет, сколько раз введенное с клавиатуры число встречается в линейном массиве из 10 случайных чисел. Pascal ABC

Предыдущий
вопрос Следующий
вопрос

program CountOccurences;

var
arr: array[1..10] of integer;
num, count, i: integer;

begin
// Заполняем массив случайными числами
randomize;
for i := 1 to 10 do
arr[i] := random(100);

// Считываем число с клавиатуры
write('Введите число: ');
readln(num);

// Ищем количество вхождений числа в массиве
count := 0;
for i := 1 to 10 do
begin
if arr[i] = num then
count := count + 1;
end;

// Выводим результат
writeln('Число ', num, ' встречается в массиве ', count, ' раз.');

end.