Сгенерировать массив из 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.