Question

Есть ли в данном массиве элементы равные заданному числу? Если есть, то вывести номер одного из них. Работа в паскале, массивы.

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,C:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(N);
    Write(' ',A[i]);
    End;
WriteLn;
Write('Введите число: ');ReadLn(C);
i:=1;
While (i<N)and(A[i]<>C) do
   Begin
   i:=i+1;
   End;
if A[i]=C then WriteLn('Номер элемента, равного ',C,': ',i)
else WriteLn('В массиве нет таких элементов')
End.