Question

ПОЖАЛУЙСТА, ОБЪЯСНИТЕ, КАК??? КАК ЭТО РЕШАТЬ? На Паскале
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. С клавиатуры вводится целое число Х. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит наименьший номер элемента, равного Х, или сообщение, что такого элемента нет. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже.

Answer 1

Ответ:

const N = 30;

var a : array[1..N] of integer;

   i, j, x : integer;

   

Begin

 for i := 1 to N do readln(a[i]);

 readln(x);

 for i := 1 to N do begin  //перебираем элементы массива

   if a[i] = x then begin  //если находим элемент равный Х то

     writeln('наименьший номер элемента равного X - ', i); //выводим сообщение

     exit;  //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер

   end;

 end;

 writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение

end.

Объяснение:

объяснения в комментариях программы

проверено на PascalABC