Две задачки в Делфи

[Lerika]

Помогите решить две задачки в Делфи пожалуйста на одномерные массивы

1.В массиве Т(9) найти номер наименьшего положительного элемента.

2.Найти номера пары элементов массива В(20), равноотстоящих от начала и конца массива и имеющих одинаковые значения.
Желательно чтобы массивы читались из Memo,не заполнялись любыми числами

[Dj_smart]

Помогаю решить:
1) Берешь книжку по программированнию в Delphi
2) Находишь главу "Массивы"
3) Смотришь примеры. Там подобных полно
4) Вставляешь код.

[KORN]

1) берешь одну переменную и цикл от начала массива и до конца и начинаешь проверять. т.е. переменной задаешь номер первого элемента массива и далее проверяешь если она больше следующей переменной то изменяешь значение переменной на текущую если нет то идешь дальше
2) смотри в поиске

[werser]

var a:array [1..9] of integer;
i,minI:integer;
begin
randomize;
for i:=1 to 9 do a[i]:=random(20);
min:=a[1];
for i:=1 to 9 do
begin
if ((a[i]<=min)and(a[i]>=0)) then begin min:=a[i]; minI:=i; end;
Label1.Caption:=inttostr(minI);
end;