Помогите сослать программу на Паскале.Поиск чисел в массиве. Program Example; {Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50, вводит число Х, и вычисляет, сколько раз Х входит в массив Rand} Var Ra...
Помогите сослать программу на Паскале.Поиск чисел в массиве. 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
Thenwriteln(‘В массиве нет числа’,X)
Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.
Гость
Ответ(ы) на вопрос:
ГостьVar Rand: array[1..20] of integer;
I, X, NumberX : integer;
Begin
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 20 do
If (Rand[I]=X) then NumberX:=NumberX+1;
If NumberX=0 Then
writeln('В массиве нет числа ',X)
Else writeln('Число',X,'в массиве присутствует ',NumberX,' раза')
End.
Не нашли ответ?
Похожие вопросы