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
#include <math.h>
using namespace std;
int main ()
{
setlocale (0,"russian");
float a,b,h,F,x;
cout << "Промежуток:\nот ";
cin >> a;
cout << "до ";
cin >> b;
cout << "Шаг: ";
cin >> h;
x=a;
do
{
F=2*tan(x/2)+1;
cout << "x=" << x << '\t' << "F(x)=" << F << endl; // \t - символ табуляции
x+=h;
if (x==0) //на ноль делить нельзя, поэтому, если x=0, то мы
x+=h; // перескакиваем к следующему аргументу
} while (x<=b);
system ("PAUSE");
return 0;
}