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.

Answer 3

Конечно! Вот пример программы на Free Pascal, которая определяет, присутствует ли заданный элемент в одномерном массиве:

pascalCopy code
program FindElementInArray;

const
  MaxSize = 100;

type
  IntArray = array[1..MaxSize] of Integer;

var
  arr: IntArray;
  arrSize, target: Integer;
  found: Boolean;

procedure InitializeArray(var arr: IntArray; arrSize: Integer);
var
  i: Integer;
begin
  for i := 1 to arrSize do
  begin
    Write('Введите элемент массива arr[', i, ']: ');
    ReadLn(arr[i]);
  end;
end;

function IsElementPresent(arr: IntArray; arrSize, target: Integer): Boolean;
var
  i: Integer;
begin
  for i := 1 to arrSize do
  begin
    if arr[i] = target then
    begin
      IsElementPresent := True;
      Exit;
    end;
  end;
  IsElementPresent := False;
end;

begin
  Write('Введите размер массива (не более ', MaxSize, '): ');
  ReadLn(arrSize);

  if (arrSize <= 0) or (arrSize > MaxSize) then
  begin
    WriteLn('Некорректный размер массива.');
    Exit;
  end;

  InitializeArray(arr, arrSize);

  Write('Введите элемент, который нужно найти: ');
  ReadLn(target);

  found := IsElementPresent(arr, arrSize, target);

  if found then
    WriteLn('Элемент ', target, ' присутствует в массиве.')
  else
    WriteLn('Элемент ', target, ' не найден в массиве.');
end.

Программа предлагает ввести размер массива и элементы массива. Затем она запрашивает элемент, который нужно найти, и выводит сообщение о том, присутствует ли он в массиве или нет.