Массив одномерный

[St1mkA]

В одномерном массиве, состоящем из n вещественных элл-ов:
1.Максимальный элл-т.
2.Сумму элл-ов до последнего положительного.
3.Сжать массив, удалить из неговсе эллементы, модуль которых находится в интервале [a,b].
Скажите как сделать 3 задачу первые 2 знаю как, делать нужно только в Delphi( на паскале нельзя) и не через консоль!!

[RUSt88]

функция модуль на делфи так Abs(int) - возвращает число int по модулю

если не хочешь заморачиваться, пиши на мыло. так уж и быть за сотку состряпую

и это,
то, что можно на паскале, можно и на делфи, код на 90% переносим с паскаля на делфи

[Google2010]

1) кидаем на форму 3 компонента edit
1.1 называем их соответственно
eda
edb
edn
2)кидаем 2 компонента stringgrid
2.1 называем их
sgold
sgnew
3) кидаем button
Подготовка окончена приступаем к остальному
процедура Formcreate

procedure TForm1.FormCreate(Sender: TObject);
begin
edn.text:='0';
eda.text:='0';
edb.text:='0';
end;

процедура EdnKeyUp

procedure TForm1.EdnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if edn.Text<>'' then
sgold.ColCount:=strtoint(trim(edn.Text))
end;

ну и самая главная процедура Button1Click

procedure TForm1.Button1Click(Sender: TObject);
var m:array[1..100] of double;
    a,b:double;
    i,n,j:integer;

begin
 n:=sgold.ColCount;
for I := 1 to n do
 m[i]:=strtofloat(sgold.Cells[i-1,0]);
a:=strtofloat(eda.Text);
b:=strtofloat(edb.Text);
   i:=1;
   while i<=n do
   begin
   if (abs(m[i])>=a) and (abs(m[i])<=b)  then
   begin
   for j := i to n - 1 do
     m[j]:=m[j+1];
    n:=n-1;
   end
   else i:=i+1;
   end;
   sgnew.ColCount:=n;

    for I := 1 to n do begin
  sgnew.Cells[i-1,0]:=floattostr(m[i])
   end;
end;

дело за малым осталось
добавить ограничения на ввод у editoв
для этого подправьте вот эту процедурку из delphiworld

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ',' then
    Key := DecimalSeparator; // запятую заменяем на разделитель для числа

  if Key = '.' then
    Key := DecimalSeparator; // точку заменяем на сепаратор (на всякий случай)

  if not (Key in ['0'..'9','-',DecimalSeparator,#8,#13]) // символы которые пропускаются
    or ((Key = DecimalSeparator) // все цифры знак минус разделитель
    and (POS (DecimalSeparator, Edit1.Text) > 0)) // запрет на второй сепаратор
    or ((Key = '-') and (POS ('-', Edit1.Text) > 0)) // запрет на второй минус
    or ((Key = '-') and (Edit1.SelStart <> 0)) // запрет на минус не вначале цифры
    then // (можно и предыдущей строчки но так лучше для понимания)
  begin
      Key := #0; // запрещенный символ заменяем нулем
      MessageBeep (MB_OK); // биб в спикир
  end;
end;

и ваша задачка готова)