пятница, 19 июня 2009 г.

чо элемента х в массиве нет??

Дано целое число х и массив a[1..n], отсортированных в порядке неубывания чисел, т.е. для любого k: 1<=1<=n: a[k-1] < a[k]. Найти такое :, что a[i]=x или сообщить, чо элемента х в массиве нет!!


const
N = 10;

var
a: array [1..N] of integer;
i: integer;
x: integer;
found: boolean;

begin
{съэмулируем такой массив как у тебя в задании}
for i:=1 to N do a[i]:=5*i+random(5);

{выведем его на экран}
for i:=1 to N do write(a[i]:4);
writeln; {перевод строки}


write('input x ');
readln(x);

found:=false;
for i:=1 to N do begin
if a[i]=x then begin
found:=true;
break;
end;
end;

write('found ', x, '? ');
if found then writeln('yes') else writeln('no');
end.


скачать рабочие исходники можно тут

Комментариев нет:

Отправить комментарий