Линейный поиск в массива. Pascal

Главная Форумы Программирование Программирование на Pascal Линейный поиск в массива. Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 7 мес. назад.

  • Автор
    Сообщения
  • #3769

    Составьте программу, которая методом линейного поиска проверяет наличие искомого элемента в массиве и выводит его номер.

    Решение:

    program arrays_13;
    uses crt;
    var i, n, key, nom: integer; el: boolean;
    mas: array[1..100] of integer;
    begin
      randomize;
      write('Размер массива > '); read(n);
      write('Искомый элемент > '); read(key);
      for i:=1 to n do
      begin
        mas[i]:=random(100);
        write(mas[i],' ');
      end;
      el:=false;
      for i:=1 to n do
      begin
        if (mas[i]=key) then
        begin
          el:=true; nom:=i; break;
        end;
      end;
      if el=true then
      begin
        writeln;
        write('Элемент найден! его номер ', nom)
      end
      else begin
        writeln; write('Элемент не найден');
      end;
    end.

Для ответа в этой теме необходимо авторизоваться.