Question

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

Answer 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 - досрочный выход из процедуры.

Answer 2

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.