Question

Определить, содержит ли массив A[1..20] из диапазона (-20, 60) случайных чисел число Х. На языке паскаль

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-20,60); a.Println;
  var x:=ReadInteger('Какое число ищем?');
  if a.Contains(x) then Writeln('Такое число есть')
  else Writeln('Такого числа нет')
end.

Примеры
42 23 59 0 20 23 41 26 47 8 23 42 20 35 31 53 -4 53 8 14
Какое число ищем? 25
Такого числа нет

15 1 44 40 55 3 31 -12 29 33 4 -13 -12 43 -14 51 44 -2 41 18
Какое число ищем? -12
Такое число есть

Answer 2

Program diapozon;
var
A: array [1..20] of integer;
x: integer;
i: shortint;
begin
randomize;
for i:= 1 to 20
do A[i]:= random(-20,60);
write('Введите число, которое нужно проверить >>');
readln(x);
for i:= 1 to 20
do if(A[i] = x)
then begin
writeln('Это число есть в массиве');
exit;
end;
writeln('Этого числа нет в массиве');
end.

//Программа создаст массив из 20 элементов с числами от -20 до 60 и проверит есть ли в нем число, заданное пользователем. Выведет пояснение.

Answer 3

Вот пример кода на языке Паскаль, который проверяет, содержит ли массив A[1..20] число X:

arduinoCopy code
program CheckArray;
var
  A: array[1..20] of integer;
  X: integer;
  i: integer;
  Found: boolean;

begin
  Found := false;
  
  { заполнение массива A случайными числами из диапазона (-20, 60) }
  for i := 1 to 20 do
  begin
    A[i] := random(81) - 20;
  end;
  
  { ввод числа X, которое нужно найти }
  write('Введите число X: ');
  readln(X);
  
  { поиск числа X в массиве A }
  for i := 1 to 20 do
  begin
    if A[i] = X then
    begin
      Found := true;
      break;
    end;
  end;
  
  { вывод результата поиска }
  if Found then
  begin
    writeln('Число X найдено в массиве A.');
  end
  else
  begin
    writeln('Число X не найдено в массиве A.');
  end;
end.

В этом коде мы используем цикл for, чтобы заполнить массив A случайными числами из диапазона (-20, 60), используя функцию random(81) - 20. Затем мы запрашиваем у пользователя число X, которое нужно найти, и используем цикл for для поиска этого числа в массиве A. Если число X найдено в массиве, мы устанавливаем флаг Found в значение true и выходим из цикла. В конце программы мы выводим соответствующее сообщение на экран в зависимости от значения флага Found.