Сгенерировать массив из N случайных целых чисел и вывести его. Ввести целое

число. Определить, есть ли в массиве элемент, равный этому числу, или вывести

сообщение, что нет такого значения в массиве

Const

K = 30;

Var

A:array[1 ... K] of integer;

i, C, n:integer;

Begin

Write ('Введите целое число: ') ; ReadLn (C) ;

n:=0;

For i: = 1 to K do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ') ;

if A[i]=C then n:=n+1;

End;

WriteLn;

if n>0 then WriteLn ('В массиве есть элемент, равный ', C)

else WriteLn ('В массиве нет элементов, равных ', C)

End.