Массив а[1..8], заполненный случайными числами [-10, 10]. Определить, Если массив не содержит заданное число, то вставить число

[schibeki]

Всем привет. вот условие задачи: Сформировать массив а[1..8], элементы которого выбираются случайным образом из интервала [-10, 10]. Определить методом последовательного поиска, содержит он заданное число. Если элемент не найден, то вставить его на первое место. НЕ удается выполнить условие это Если элемент не найден, то вставить его на первое место. Вот собственно код мой. Все работает кроме последнего,т.е. даже не организовано Код Pascal

Program Pr1;
  Var
       a: array[1..8] of integer;
       k: real; i: integer;
BEGIN
     Randomize;
     for i:=1 to 8 do
          begin         {формирование массива}
                a[i]:=random(10)-10; write(a[i]:4);
         end;
     writeln;   {перевод курсора на новую строку}
     write(' Введите ключ поиска: '); readln(k);
 
{перебор элементов массива и сравнение их с ключом поиска}
     i:=1; while (a[i]<>k) and (i<=8) do i:=i+1;
     if    i<=8   then    writeln('Элемент найден. Его номер - ',i)  else writeln('Элемент не найден');
END.

[type_Oleg]

Вот тут

a[i]:=random(10)-10;

будет в интервале [-10;-1]
Чтобы [-10;10] надо

a[i]:=random(21)-10;

..то вставить его на первое место.
Это как? Вставить вместо a[1] ?

[schibeki]

Сообщение от type_Oleg

Вот тут

a[i]:=random(10)-10;

будет в интервале [-10;-1]
Чтобы [-10;10] надо

a[i]:=random(21)-10;

..то вставить его на первое место.
Это как? Вставить вместо a[1] ?

т.е допустим я ввел -2,а его нет в массиве,то поставить это число на первое место массиве,но ничего не сказано про изменчивость массива после вставки данного символа,поэтому без разницы

[BDA]

1) Переставьте условия в while:
while (i <= 8) and (a[i] <> k)
Иначе происходит обращение к элементу за пределами массива
2) Раз без разницы, то и добавьте в ветку else команду a[1] := k.

[schibeki]

Сообщение от BDA

1) Переставьте условия в while:
while (i <= 8) and (a[i] <> k)
Иначе происходит обращение к элементу за пределами массива
2) Раз без разницы, то и добавьте в ветку else команду a[1] := k.

спасибо большое

[schibeki]

Сообщение от BDA

1) Переставьте условия в while:
while (i <= 8) and (a[i] <> k)
Иначе происходит обращение к элементу за пределами массива
2) Раз без разницы, то и добавьте в ветку else команду a[1] := k.

это можешь глянуть http://programmersforum.ru/showthread.php?t=254157 буду благодарен