Помогите сослать программу на Паскале.Поиск чисел в массиве. Program Example; {Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50, вводит число Х, и вычисляет, сколько раз Х входит в массив Rand} Var Rand: array[1..20] of integer; I, X, NumberX : integer, Begin {Установка датчика случайных чисел} ​Randomize; {Заполнение массива случайными числами и вывод их на экран} ​Writeln(‘Массив случайных чисел:’) ​For I:=1 to 10 do ​begin ​ Rand[I]:=random(50); Write(Rand[I]:4) ​End; ​Writeln; {Ввод Х} ​Write(‘Введите Х:’)); Readln(X); {Подсчет числа вхождений Х в массив} ​NumberX:=0; ​For I:=1 to 10 do ​​If Rand(I)=X then NumberX:=NumberX+1; {Анализ и вывод результата} ​If NumberX=0 ​Then​writeln(‘В массиве нет числа’,X) ​Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’) End.

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите сослать программу на Паскале.Поиск чисел в массиве. Program Example; {Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50, вводит число Х, и вычисляет, сколько раз Х входит в массив Rand} Var Rand: array[1..20] of integer; I, X, NumberX : integer, Begin {Установка датчика случайных чисел} ​Randomize; {Заполнение массива случайными числами и вывод их на экран} ​Writeln(‘Массив случайных чисел:’) ​For I:=1 to 10 do ​begin ​ Rand[I]:=random(50); Write(Rand[I]:4) ​End; ​Writeln; {Ввод Х} ​Write(‘Введите Х:’)); Readln(X); {Подсчет числа вхождений Х в массив} ​NumberX:=0; ​For I:=1 to 10 do ​​If Rand(I)=X then NumberX:=NumberX+1; {Анализ и вывод результата} ​If NumberX=0 ​Then​writeln(‘В массиве нет числа’,X) ​Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’) End.» от пользователя Митя Кравцов в разделе Қазақ тiлi. Задавайте вопросы и делитесь своими знаниями.