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

Question

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

Comments

Спасибо

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 и проверит есть ли в нем число, заданное пользователем. Выведет пояснение.