Напишите, пожалуйста, программу на Free Pascal. Определить, присутствует ли в одномерном массиве заданный элемент?​

Ответы

Ответ дал: shpaler2k16
1

Ответ:

var count, element: integer;

   mas: array [0..19] of integer;

   

begin

 randomize();

 for var i:= 0 to 19 do

   mas[i] := random(32);  

 Writeln(mas);

 Readln(element);

  for var i := 0 to 19 do

  if mas[i] = element then

  begin

   Writeln('Yes');

   exit

  end;

  Writeln('No');

 End.

Объяснение:

exit - досрочный выход из процедуры.

Ответ дал: BobbyFresnel
1

var

 i, n, m: integer;

 a: array of integer;

begin

 write('Размер массива? ');

 read(n);

 setlength(a, n);

 writeln('Введи элементы массива');

 for i := 0 to n - 1 do

   read(a[i]);

 write('Что искать? ');

 read(m);

 for i := 0 to n - 1 do

   if a[i] = m then

   begin

     write('Найден элемент с номером ', i + 1);

     exit;

   end;

 write('Нет такого элемента');  

end.


Муса134: Можно, пожалуйста, еще схему алгоритма. А то программа пишет, что a[1]=a[2].
Муса134: Я не понимаю, как это исправить.
BobbyFresnel: Программа может только писать то, что ей разрешено. Т.е. "Введи элементы массива", "Что искать?", "Найден элемент с номером ХХ" или "Нет такого элемента".
BobbyFresnel: Что за "схема алгоритма"? Алгоритм тупейший. Просматириваем массив от начала к конца, сравниваем текущий элемент с тем, который ищем. Нашли - выдаем номер и заканчивваем, не нашли до конца - пишем, что нет такого элемента.
Вас заинтересует