Спасите Delphi

[rempeg]

Создать программу, которая находит индекс числа в массиве случайных чисел.
WinRAR ZIP archive.zip

[type_Oleg]

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

Создать программу, которая ...

Зачем? Это спасет Delphi ?

[rempeg]

меня спасите от него

[ZX Spectrum-128]

По каким критериям искать-то нужно? Rar'ы на тлф не открываются.
[флуд он] дельфи не обижать! Он хороший!
[флуд офф]

[rempeg]

картинку залил

[ZX Spectrum-128]

Ну есть у нас массив случайных чисел. Индекс какого числа искать? Например, первого положительного? Или у которого целая часть равна дробной? Чего искать-то?

[rempeg]

которое просит пользователь, во второй строке

[ZX Spectrum-128]

Наверное, edit2

X:=strtofloat(edit2.text);
K:=0;
For i:=1 to n do
  If a[i]=x then
     Begin
        K:=i;
        Break;
      End;
If k<>0 then showmessage(inttostr(k))
Else showmessage('нет таких чисел');

[Arigato]

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

меня спасите от него

Спасите Делфи от него!

[type_Oleg]

Надо наверное, в Edit3 вместо ShowMessage

If k<>0 then Edit3.Text:=IntToStr(k))
   else Edit3.Text:='нет таких чисел';