Голосование за лучший ответ
Алексей Кузьминов
(10060)
3 года назад
2 ошибки:
1. Вы вводите отрицательное число, а для хранения используете байт, который не допускает отрицательных значений (поэтому вывелось 251=256-5)
2. Нет проверки на выход за границу массива, поэтому после i = 10 вы ищите значение байта где-то в памяти и благополучно находите.
Что делать:
1. var k: integer;
2. while (A[i] <> k) and (i <= n) do Inc(i);
ЗЫ
Проверьте значения Addr(k) и Addr(a[11]) есть большая вероятность, что вы нашли в памяти тот же самый k.
ЗЗЫ
Вы вновь открыли способ не проверять (i <= n) в каждом цикле:
Занести A[n+1]:=k ДО ЦИКЛА и сравнение i = n+1, когда мы его нашли, ЗНАЧИТЕЛЬНО сокращает количество сравнений.
1. Вы вводите отрицательное число, а для хранения используете байт, который не допускает отрицательных значений (поэтому вывелось 251=256-5)
2. Нет проверки на выход за границу массива, поэтому после i = 10 вы ищите значение байта где-то в памяти и благополучно находите.
Что делать:
1. var k: integer;
2. while (A[i] <> k) and (i <= n) do Inc(i);
ЗЫ
Проверьте значения Addr(k) и Addr(a[11]) есть большая вероятность, что вы нашли в памяти тот же самый k.
ЗЗЫ
Вы вновь открыли способ не проверять (i <= n) в каждом цикле:
Занести A[n+1]:=k ДО ЦИКЛА и сравнение i = n+1, когда мы его нашли, ЗНАЧИТЕЛЬНО сокращает количество сравнений.
Похожие вопросы
Также спрашивают
program Lab_4;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n=10;
type mass=array[1..n] of integer;
var A:mass; i,k:byte;
begin
for i:=1 to n do
begin
Write('A[',i,']=');
Readln(A[i]);
end;
writeln('Enter k: ');
readln(k);
i:=1;
while A[i]<>k do
Inc(i);
if A[i]=k then writeln('Element znaiden, ' , 'A[',i,']=',k)
else Writeln('Elementa ne znaideno');
Readln;
readln
end.