Практическое задание №27 Тема: Датчик слу¬чайных чисел в Паскале. Поиск чисел в массиве

Практическое задание №27 Тема: Датчик случайных чисел в Паскале. Поиск чисел в массиве Задание: 1. Изучите пример программы поиска числа в массиве. 2. Составить блок­схему и написать программу. Порядок выполнения: Задание №1.  Датчик случайных чисел в Паскале. Поиск чисел в массиве Пример: программа поиска числа в массиве 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. Задание №2. Написать программу, которая вводит массив из N целых чисел и выводит на экран элементы, кратные числу K. Протестировать программу на следующих исходных данных: а) k=3   Массив: 2 6 ­9 4 5 12 ­15 б) k=4   Массив: 9 0 8 124 ­16 11 19