[xxxmaximal]

В общем я не помню задания (но не в этом суть)
Подскажите как вставить массив в мемо чтоб не нарушать комбобокс

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

function sr(a:mas;N:integer):real; var S:real; i:Integer; begin s:=0; For i:=0 to (N-1) do s:=s+a[i]; Sr1:=s/n; sr:=sr1; end; function ot(a:mas;n:integer):mas; var i:integer; begin for i:=0 to (N-1) do O[i]:=a[i]-sr1; ot:=o; end; function maximum (a:mas;n:integer):real; var i,max:Integer; begin   max := 1;   for i := 2 to n do     if a[i] > a[max] then       max := i;       Result:=max; end;   procedure TForm1.Button1Click(Sender: TObject); var a:mas; z,i,m,n:integer; begin n:=memo1.lines.count; for i:=0 to (n-1) do a[i]:=strtoint(memo1.lines[i]); case sign.ItemIndex of 0:label1.caption:=floattostr(sr(a,n)); 1:label1.caption:=floattostr(ot(a,n)); 2:label1.caption:=floattostr(maximum(a,n));     end;   end; end.

1:label1.caption:=floattostr(ot(a,n)); вот что с этим делать

[lmikle]

А где тут ComboBox? В коде ничего нет такого.
И как ты можешь что-то нарушить, если даже не обращаешься к ComboBox... Выражай яснее проблему.

[xxxmaximal]

вот это

Код:

1 2 3 4

case sign.ItemIndex of 0:label1.caption:=floattostr(sr(a,n)); 1:label1.caption:=floattostr(ot(a,n)); 2:label1.caption:=floattostr(maximum(a,n));

вроде бы и есть как бы отношение к комбобоксу и 0,1,2 это строки в нем
Тоесть у меня не робит пункт 2 изза несовместимость mass real

[lmikle]

Естественно, т.к. ot возвращает тебе массив.
Сделай еще одну функцию, которая выведет массив как строку и используй ее всесто FloatToStr.

Код:

1 2 3 4 5 6 7

function masToStr(a:mas) : String; var   I : Integer; begin   Result := '';   For I := Low(a) To High(a) Do Result := FloatToStr(a[i]) + ' '; end;