|Delphi|-как отсортировать и вывести в стринггрид

[destroy_]

Задание прикрепил, сам что то не доганяю, помогите правильно ли делаю, как отсортировать и вывести не понимаю...

procedure TForm1.Button1Click(Sender: TObject);
var
 amas:array of array of integer;
 bmas:array of integer;
 sr:real;
 i,j,summ:integer;
 temp:double;
begin
 setlength(bmas,Sedit.Value);
  SetLength(amas,Sedit.Value);
 for i:=0 to sedit.value-1 do
  for j:=0 to sedit.value-1 do
    amas[i,j]:=strToInt(aGrid.Cells[i,j]);
      for i:=0 to sedit.value-1 do
   begin
   amas[i]:=0;
     for j:=0 to sedit.value-1 do
      summ:= 0;
        summ:=summ+amas[i,j];
          sr:=summ/sedit.value;
       end;


  


   for i:=0 to sedit.Value-1 do
     bmas.cells[i,0]:=floattostr(amas[i,j]);
      SetLength(amas,0,0);
        SetLength(bmas,0,0);
   end;

[BDA]

Давайте сначала определимся, каков массив amas. В задании он одномерный, у Вас двумерный.

[destroy_]

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

Давайте сначала определимся, каков массив amas. В задании он одномерный, у Вас двумерный.

не принципиально, главное чтобы задача выполняло свои действия

[BDA]

Очень даже принципиально
Все же остановимся на одномерном.
И что же не получается?
Пока не будем касаться вопроса сортировки и вывода.
В чем заключается проблема при получении массива из стринггрида?

Кстати, форматируйте код сразу правильно, а то сейчас он выглядит ужасно, Вам самим не понятно где, что происходит.
Ну ладно, не буду мучать - вот получение массива из стринггрида:

procedure TForm1.Button1Click(Sender: TObject);
var
  amas, bmas: array of integer;
  i, n: integer;
begin
  n := strToInt(Sedit.Text);
  setlength(bmas, n);
  SetLength(amas, n);
  for i := 0 to n - 1 do
    amas[i] := strToInt(aGrid.Cells[i, 0]);
  {остальные действия}
  SetLength(amas, 0);
  SetLength(bmas, 0);
end;

Кстати, я не знаю, что за свойство value у sedit (у меня нет компонента с таким свойством), поэтому заменил на то, что есть

[destroy_]

[CODE]
Кстати, я не знаю, что за свойство value у sedit (у меня нет компонента с таким свойством), поэтому заменил на то, что есть
В чем заключается проблема при получении массива из стринггрида?[/QUOTE]
value свойство у spinedit

да в этом проблем нет.
Проблема в выводе в другой массив да ещё и по возрастанию...

[BDA]

Эх, как это я прошляпил Ваше сообщение...
Идем дальше. Как считать среднее арифметическое?
Это, наверное, тоже для Вас не проблема?
Правда, в вышеприведенном коде я не могу проследить логики его нахождения

Допустим, нашли среднее арифметическое.
Далее проходим еще раз по массиву и сравниваем со средним арифметическим.
Для удобства (необходимости), добавляем переменную j, которая указывает на первый свободный элемент массива B. В цикле при сравнении вставляем рассматриваемый элемент в массив B и увеличиваем j.

Затем задаем новый размер массива B (j - как раз новый размер) и сортируем любым известным способом (хоть пузырьком).

Вообще, я сделаю "плохо" для Вас, написав решение, но, т.к. у меня улучшилось настроение (решил задачку, которую не мог решить 13 дней, ну конечно не без помощи друзей):

procedure TForm1.Button1Click(Sender: TObject);
var
  amas, bmas: array of integer;
  i, n, j, tmp: integer;
  sr: double;
begin
  n := Sedit.Value;
  if n = 0 then
    exit;
  SetLength(bmas, n);
  SetLength(amas, n);
  for i := 0 to n - 1 do
    amas[i] := strToInt(aGrid.Cells[i, 0]);
  sr := 0;
  for i := 0 to n - 1 do
    sr := sr + amas[i];
  sr := sr / n;
  j := 0;
  for i := 0 to n - 1 do
    if amas[i] > sr then
    begin
      bmas[j] := amas[i];
      inc(j);
    end;
  SetLength(bmas, j);
  n := j;
  for i := 0 to n - 2 do
    for j := i + 1 to n - 1 do
      if bmas[i] > bmas[j] then
      begin
        tmp := bmas[i];
        bmas[i] := bmas[j];
        bmas[j] := tmp;
      end; 
  for i := 0 to n - 1 do
    Grid.Cells[i, 1] := intTostr(bmas[i]);
  SetLength(amas, 0);
  SetLength(bmas, 0);
end;

Потестите

[destroy_]

Потестите

работает не совсем так как надо, она находит только 1но число больше среднего арифметического и выводит его (хотя сам при проверке делаю так что их было не меньше 2х)

[BDA]

Во-первых, не цитируйте целиком сообщение - можно получить штраф.
Во-вторых, проверил у себя - все работает, ищите ошибку у себя.
Ввел:

количество 6
1 2 3 4 5 6

Ответ:

4 5 6

[destroy_]

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

Во-первых, не цитируйте целиком сообщение - можно получить штраф.
Во-вторых, проверил у себя - все работает, ищите ошибку у себя.
Ввел:

Ответ:

во первых: исправил буду знать
во вторых: хз чё такое... поищу

[BDA]

Выведите среднее арифметическое и j куда-нибудь, чтобы понять, те ли они получились.