Составить программу которая находит индекс числа в массиве случайных чисел

[MadNikys]

Люди нужна помошь по Delphi. помогите плиззз =)
Составить программу которая находит индекс числа в массиве случайных чисел
Простите за нубство, но очень на вас надеюсь.

[fbus]

если никаких наработок нет то пиши мне в аську, я сделаю

[Alt]

пиши в скайп, сделаю за вебмани

[MadNikys]

Откуды у бедного студента деньги

[Karabash]

Что означает "индекс числа в массиве"?

[Stilet]

Так пойдет?

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace Поиск_индекса_по_числу_в_массиве
{
    class Program
    {
        static void Main(string[] args)
        {
            int[] a = new int[5]; Random r=new Random();
            for (int i = 0; i < a.Length; i++) { a[i] = r.Next(200); Console.Write("{0}\t",a[i]); }
            //Console.ReadKey();
            int k = Convert.ToInt16(Console.ReadLine());
            for (int i = 0; i < a.Length; i++) { 
                 if (a[i] == k) { 
                     Console.Write("{0}\t", i); 
                 } 
            }
            Console.ReadKey();
        }
    }
}

Или на компонентном паскале написать?

[MadNikys]

Эм... ну от нас требуеют подругому...
библиоетки .. и синтаксис подруго..
Вот скину пример одной програмки.

unit Nik;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    StringGridl: TStringGrid;
    procedure ButtonlClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}


procedure TForm1.ButtonlClick(Sender: TObject);
const
  SIZE = 5;
var
  a: array[l..SIZE] of integer; // массив целых
  min: integer; // номер минимального элемента массива
  i: integer; // номер элемента, сравниваемого с минимальным
begin
  // ввод массива for i:=1 to SIZE do
  a[i] := StrToInt(StringGridl.Cells[i - 1, 0]);
  // поиск минимального элемента
  min := 1; // пусть первый элемент минимальный
  for i := 2 to SIZE do
    if a[i] < a[min] then
      min := i;
  // вывод результата
  label2.caption := 'Минимальный элемент массива:'
    + IntToStr(a[min] + #13 + 'Номер элемента:' + IntToStr(min);
end;

[MadNikys]

Хелп плиз ребят (((

[Alt]

пиши в скайп, ок сделаю бесплатно

[MadNikys]

Большое спасибо Всем!!
Особенно Alt(Y) за помощь. обеснил, расжувал и в рот положил