Объясните, как это решать? на паскале
дан целочисленный массив из 30 элементов. элементы массива могут принимать произвольные целые значения. с клавиатуры вводится целое число х. опишите на языке или на одном из языков программирования алгоритм, который находит и выводит наименьший номер элемента, равного х, или сообщение, что такого элемента нет. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже.

MishaDunaev MishaDunaev    1   21.09.2019 23:57    3

Ответы
али5553 али5553  08.10.2020 08:15

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика