Генерация чисел. Дельфи

[Elena2131]

Нужно решить 2 задачи на дельфи. Сама пыталась очень долго, но не получилось.

1)Создать массив, состоящий из 20 случайных чисел из интервала от 1 до 50. Верно ли, что в массиве больше 5 различных чисел.

2)Описать функцию NMin(A,N)(NMAX(AM)) целого типа, находящего номер минимального элемента массива А) массив состоит из N вещественных чисел) C помощью этой функции найти номера минимального (максимальных) элементов массивов A,B,C размера NA,NB, NC соответственно.


По возможности, если можно готовую программу, а то прблема даже с формой -*

[Elena2131]

очень прошу (:

[Elena2131]

мальчики помогите , очень прошу

[Grag]

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

1)Создать массив, состоящий из 20 случайных чисел из интервала от 1 до 50.

Randomize;
for idx:=0 to 19 do
    massA[idx]:=1+random(50);

Вот, собственно и все...
massA:array[0..49] of byte

[Elena2131]

помогите плизки :'(

[Virtson]

Function NMin(A: TArray; N: integer): integer;
var 
  i: integer;
  minval: real;

begin
  NMin:= -1;
  if N<=0 then exit;
  NMin:= 1;
  minVal:= A[1];
  for i:= 2 to N do
  if A[i]<minVal then
  begin
     NMin:= i;
     minVal:= A[i];
  end; 
end;

[Virtson]

Type
TArray = array of real;
{динамический массив}