Question

Решить в Паскале Определить содержит ли массив А[1..20] случайное число Х, введеное с клавиатуры.

Answer 1

Program 1;
Var a:array[1..20] of integer;
X, i, k: integer;
Begin
Writeln('введите элементы массива') ;
For i:1 to 20 do
Readln(a[i]);
Writeln('введите х=');
Readln(x);
For i:=1 to 20 do
If x=a[i]
Then k:=k+1;
If k>0
Then writeln('да, содержит')
Else writeln('нет, не содержит');
END.