Question

Помогите пожалуйста с паскалем. напишите программу, определяющую первое вхождение заданного целого числа X в массив целых чисел, заведомо содержащий это число.

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Позиция ',a.IndexOf(ReadInteger('Введите искомое число:'))+1);
end.

Пример
n= 15
23 -16 15 32 -17 -32 -22 -5 -20 22 -19 -5 -36 23 31
Введите искомое число: -32
Позиция 6

Answer 2

Конечно, вот пример программы на языке Pascal, которая находит первое вхождение заданного целого числа X в массив целых чисел:

pascalCopy code
program FindFirstOccurrence;

const
  MAX_SIZE = 100; // Максимальный размер массива

var
  arr: array[1..MAX_SIZE] of integer; // Объявляем массив целых чисел
  n, X, i, firstOccurrence: integer; // Переменные для размера массива, числа X, индекса искомого числа

begin
  write('Введите размер массива: ');
  readln(n);

  // Заполнение массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    read(arr[i]);
  end;

  write('Введите число X для поиска: ');
  readln(X);

  firstOccurrence := -1; // Индекс первого вхождения, инициализируем -1 (если не найдено)

  // Поиск первого вхождения числа X
  for i := 1 to n do
  begin
    if arr[i] = X then
    begin
      firstOccurrence := i;
      break; // Выход из цикла, если число найдено
    end;
  end;

  if firstOccurrence <> -1 then
    writeln('Первое вхождение числа ', X, ' в массиве находится в позиции ', firstOccurrence)
  else
    writeln('Число ', X, ' не найдено в массиве');
end.

Вы можете скопировать этот код в среду разработки Pascal (например, Lazarus) и выполнить его, чтобы найти первое вхождение заданного числа X в массиве.