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('В массиве нет таких элементов')