Массивы

[Katerina_K]

Здравствуйте!помогите решить задачу.
Задать массив целых положительных чисел с помощью диалогового окна Inputbox.Вывести нечетные элементы массива в компонент memo с указанием индекса элементов массива.Вычислить:
-максимальный элемент массива и его номер среди положительных элементов массива;
-сумму четных элементов массива без минимального элемента массива

[Stilet]

With TStringList.Create do begin
 ComaText:=InputBox('','','');
 for i:=0 to Count-1 do begin
  k:=StrToIntDef(Strings[i],0);
  <Тут что-то делаем с числом в к>
 end;
 Free;
end;

Числа вводятся через запятую.
Идея понятна?