Question

Дан массив целых чисел найти номер массива равному числу X

Answer 1

Ответ:

Объяснение:

const

n_max=100;

var

a: array[1..n_max] of integer;

n,i,x,k: integer;

begin

write('Введите размер массива: ');

readln(n);

for i:=1 to n do

begin

 a[i]:=random(n_max);

 write(a[i]:3);

end;

k:=0;

writeln;

writeln('Введите число X: ');

readln(x);

for i:=1 to n do

 if a[i]=x

  then k:=i;

if k=0 then

 writeln(0)

else

 writeln('Элемент, равный ',x,' на ',k,'-й позиции');

end.