Pascal. Задача 8-25

Целочисленный массив из 10 элементов вводит пользователь. Пользователь также вводит число X. Найти и вывести минимальный индекс элемента, равного X, или сообщение, что такого элемента нет.

Решение

const
  N = 10;
var
  i, X, min : integer;
  a : array[1..N] of integer;
begin
  for i := 1 to N do begin
    Write('Введите элемент массива ', i, ': ');
    Readln(a[i]);
  end;
  Write('Введите число X: ');
  Readln(X);
  min := 0;
  for i := 1 to N do begin
    if (a[i] = X) and (min = 0) then
      min := i;
  end;
  if min > 0 then
    Writeln('Индекс равен: ', min)
  else
    Writeln('Нет такого элемента')
end.

◄▲►