индексы в массиве

[apelsun]

Подскажите, есть программа, которая находить индекс числа. Генерируется массив случайных чисел и программа должна вывести индекс числа, которое задается вручную.

Например массив: 3 5 8 3 5 2 16 58 74 2
Число 3

Программа выдаст ответ: 4

в программе ошибка, или так и должно быть, что индекс числа в массиве берется у последнего такого числа?

Как изменить программу, что бы она выводила первый индекс?

unit Unit1;

interface

uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
ik, k, i : integer;
s : string;
a : array [1..15] of integer;
implementation

{$R *.xfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
k:= StrToInt (Edit2.Text);
For i:= 1 to 15 do
if k= a[i] then ik := i;
if ik= 0 then Edit3.Text := 'number ubsent'
else Edit3.Text := IntToStr (ik);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
s:= '';
For i:= 1 to 15 do
begin
a[i]:= random (26);
s:= concat (s, IntToStr (a[i]), #32);
end;
Edit1.Text := s;
end;

end.

[Аватар]

procedure TForm1.Button2Click(Sender: TObject);
begin
  k:= StrToInt (Edit2.Text);
  ik:=0;
  For i:= 1 to 15 do if k= a[i] then begin ik := i; Break; end;
  if ik= 0 then Edit3.Text := 'number ubsent'
           else Edit3.Text := IntToStr (ik);
end;

[Человек_Борща]

Например массив: 3 5 8 3 5 2 16 58 74 2
Число 3

Программа выдаст ответ: 4

Нумерация элементов, стандартно, начинается с нуля, а не с единицы.
mass:array[0..3] og ShortInt = (0,1,2,3) - всего в массиве 4 элемента. Элемент с числом 3 имеет индекс 4
mass:array[1..3] og ShortInt = (1,2,3) - всего в массиве 3 элемента. Элемент с числом 3 имеет индекс 3

[Аватар]

Нумерация элементов, стандартно, начинается с нуля, а не с единицы.

Для динамичкских, для статических начинай с чего хочешь

[Человек_Борща]

Для динамичкских, для статических начинай с чего хочешь

так это да. Вероятно ТС объявил статический массив [0..X] и интересуется почему элемент Y имеет индекс на единицу больше необходимого, ведь 0 не в счет. Оказалось 0 это тоже что-то значит.

[Аватар]

Массив объявлен a : array [1..15] of integer; Просто в цикле ТС забыл Break вставить после нахождения 1-го вхождения

[apelsun]

задание звучит вывести индекс числа.
Если массив 14 15 22 14 25 4 28 1 8 9 10 12 16 45 85

число 14

программа должна выводить 1 или 4?

[Человек_Борща]

а каков диапазон?

[Serge_Bliznykov]

ребят, Вы чего? Аватар уже ДВАЖДЫ дал ответ (второй раз даже пояснил, в чём была ошибка у TC)! Зачем толочь воду в ступе и говорить про пустой мешок?! ;(

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

программа должна выводить 1 или 4?

Очевидно, что 1 (единицу)

Сообщение от Человек_Борща

а каков диапазон?

Диапазон чего, простите?!