Объясните задачу (Delphi)

[Sazary]

Sianessa, так просто бросьте на форму, например, stringgrid, и установите количество столбцов 20, а количество строк 1.
Установите опцию goEditing в true и уберите фиксированные строки и столбцы.
И в цикле заполните массив:

for i:=1 to 20 do
 mas[i] := StrToInt(StringGrid1.Cells[i-1,0]);

Для Edit'а придется посимвольно проходить по содержимому, поэтому имхо проще со стринггридом.

[Sianessa]

__STDC__, понятно... А я вот только начинаю сие счастье изучать, и отношения с этой программой складываются как-то не очень хорошо...
Там есть Edit1 - текстовое поле... Но замучаешься вводить 20 чисел через запятую в одно поле... Когда тебя просят например ввести число, ты можешь быстро ввести и нажать Enter для ввода следующего - так гораздо удобнее... И ладно здесь 20 чисел, а если будет 100?
То текстовое поле тут не поможет...

[__STDC__]

смотри выше

[Sianessa]

Sazary, StringGrid... Ну да, можно попробовать, как вариант...
А какие ещё варианты можно использовать для вывода?

[Sazary]

А какие ещё варианты можно использовать для вывода?

Полно вариантов. Эдит, Мемо, СпинЭдит...
Только вот оптимальный - стринггрид.
Точнее, оптимальный для вас.

[__STDC__]

можно из текстового файла еще =)

[Sianessa]

Спасибо всем большое ^^

В общем я написала код программы. Но оно не работает, пишет что: Incompatible types: 'integer' and 'Extended' и выделяет при этом следующую строчку:

StringGrid2.cells[i-1,0]:=inttostr(b[i]);

procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..20] of integer;
    b:array [1..20] of integer;
i,j:byte;
begin
 a[i]:= StrToInt(StringGrid1.Cells[i-1,0]);
 for i:=1 to 20 do begin
   for j:=1 to 20 do
      if (i<>j) then b[i]:=b[i]+a[j];
   b[i]:=b[i]/19
StringGrid2.cells[i-1,0]:=inttostr(b[i]);
end;
end;
end.

[__STDC__]

оой.. не понял.. вероятно в стринггрид не текст хранится... убери inttostr.. может поможет..
***
хотя не.. что-то туплю к вечеру... у тебя в массиве b целые числа но при делении на 19 получается вещественное... поменяй тип массива b на real (или extended) и в строке StringGrid2.cells[i-1,0]:=inttostr(b[i]);
напиши floattostr вместо inttostr

[Sazary]

Дополнительно к вышесказанному, вы еще и исходный массив не вводите.
Выдаст ошибку при выполнении на строчке

a[i]:= StrToInt(StringGrid1.Cells[i-1,0]);

Вот.

procedure TForm1.Button1Click(Sender: TObject);
const N=5;
var a:array [1..N] of integer;
    b:array [1..N] of real;
i,j:byte;
begin
 for i:=1 to N do
  a[i]:= StrToInt(StringGrid1.Cells[i-1,0]);
 for i:=1 to N do
  begin
  for j:=1 to N do
   if (i<>j) then
    b[i]:=b[i]+a[j];

  b[i]:=b[i]/(N-1);
  StringGrid2.cells[i-1,0]:=floattostr(b[i]);
  end;
end;

[Sianessa]

сами то форматы обоих массивов интеджеровские... Это только порядковые номера элементов массивов i И j баитовые... Хотя атм хоть что ставь - это не влияет особо.