написать функцию, которая по элементу массива будет определять его номер.

[vereney]

кАК написать функцию, которая по элементу массива будет определять его номер?

[Slap]

function num(b:array[1..n] of integer):integer; {n-константа, определяющая количество элементов в данном массиве}
var k, j, r:integer;
begin
 write('Введите значение элемента массива');
 read(k);
 num:=0;
  repeat;
  begin
   inc(j);
  end;
  until  (j>n) or( k=b[j]);
  if j<=n then
  num:=j;
end;

[veniside]

Slap, 2 ошибки в коде )

const
  N = 100;

type
  myArray = array[1..N] of Integer;

function indexOf(const A: myArray; value: Integer): Integer;
var
 i: Integer;
begin
  indexOf := -1;
  for i := 1 to N do begin
    //
    if (A[i] = value) then begin
      //
      indexOf := i;
      break;
    end;
  end;
end;

const перед A можно убрать, не помню, был он в Паскале или нет.

[Slap]

Сообщение от veniside

Slap, 2 ошибки в коде )

Какие именно ошибки?

[Serge_Bliznykov]

Сообщение от Slap

Какие именно ошибки?

я не знаю, какие ошибки имел в виду veniside

но точно вижу следующие ошибки:

1) то, что Вы забываете перед началом цикла иницилизировать j:
j := 0;

кто Вам сказал, что там будет ноль?! я и для глобальных подобные трюки не одобряю. А тут будет явная ошибка - это же переменная локальная, значит будет в стеке, значит там будет всё что угодно!

2)

 function num(b:array[1..n] of integer):integer;

Так параметры компилятор описывать не велит (ошибка при компиляции)

3)

until  (j>n) or( k=b[j]);

когда j станет больше n то будет проверяться второе условие (k=b[j]) или не будет зависит от настроек компилятора (сокращённое вычисление булевых выражений или полное). И если полное - получите range check error в связи с выходами индекса за пределы массива..

[veniside]

спасибо, Сергей, да, я говорил о первых двух, третью не заметил )

[vereney]

Спасибо, ребята!

[Вадим Мошев]

Сообщение от Slap

function num(b:array[1..n] of integer):integer; {n-константа, определяющая количество элементов в данном массиве}
var k, j, r:integer;
begin
 write('Введите значение элемента массива');
 read(k);
 num:=0;
  repeat;
  begin
   inc(j);
  end;
  until  (j>n) or( k=b[j]);
  if j<=n then
  num:=j;
end;

Хоть тема уже неактуальна, тем не менее, замечу, что:
1. После Repeat нельзя ставить точку я запятой!
2. Нет смысла заключать между словами Begin и End то, что что находится между словами Repeat и Until

[veniside]

> После Repeat нельзя ставить точку я запятой!

Можно. Это полноценный оператор, так что точку с запятой можно ставить там, где допустим оператор. Единственное исключение — перед else нельзя.

[Dvoishnik]

точку ставить можно
но что она есть что ее нет от этого неего не меняеться)