Question

Написать программу, которая проверяет, находится ли введенное с клавиатуры число в массиве. Массив также должен вводится во время программы pascalABC.Net прошууууу

Answer 1

Program z234;  const n = 10;  Var a: array [1..n] of integer; i,x,f:integer;Begin  for i:=1 to n do  begin    write('A[',i,'] = ');    readln(a[i]);  end;    for i:=1 to n do    write(a[i],'  ');    writeln;  write('Введите число = ');  readln(x);    f:=0;  for i:=1 to n do    if a[i] = x then f:=1;        if f = 1 then writeln('Число ',x, ' входит в массив')           else writeln('Число ',x, ' НЕ входит в массив')End.

Answer 2

Конечно, вот пример программы на PascalABC.Net, которая проверяет, содержится ли введенное с клавиатуры число в массиве:

pascalCopy code
program SearchInArray;

var
  arr: array of Integer;
  numToFind, i: Integer;
  isFound: Boolean;

begin
  // Запрашиваем размер массива
  Write('Введите размер массива: ');
  ReadLn(i);
  
  // Инициализируем массив
  SetLength(arr, i);
  
  // Заполняем массив значениями
  WriteLn('Введите элементы массива:');
  for i := 0 to High(arr) do
  begin
    Write('Элемент ', i, ': ');
    ReadLn(arr[i]);
  end;
  
  // Запрашиваем число для поиска
  Write('Введите число для поиска: ');
  ReadLn(numToFind);
  
  // Инициализируем флаг isFound как false
  isFound := False;
  
  // Проверяем, содержится ли число в массиве
  for i := 0 to High(arr) do
  begin
    if arr[i] = numToFind then
    begin
      isFound := True;
      Break; // Выходим из цикла, если число найдено
    end;
  end;
  
  // Выводим результат
  if isFound then
    WriteLn('Число ', numToFind, ' содержится в массиве.')
  else
    WriteLn('Число ', numToFind, ' не найдено в массиве.');
end.

Эта программа сначала запрашивает размер массива и его элементы, затем запрашивает число для поиска и выполняет поиск в массиве. Если число найдено, программа сообщит об этом, в противном случае она сообщит, что число не найдено.