@Танюша

Дан массив размера N. Заменить каждый элемент массива на среднее арифметическое этого элемента и его соседей.

Использовать подпрограмму из этой задачи, изменив её для использования в общем случае:

implementation
type mas=array of integer;//определим тип динамический массив
{$R *.dfm}
procedure Massiv(var a:mas;st:TStringGrid);
var i:integer;
begin
Setlength(a,st.ColCount);//выделим для массива память
for i:=0 to st.ColCount-1 do//индексы начинаются с 0
a[i]:=StrToInt(st.Cells[i,0]);//заполним массив из таблицы
end;
function Sred(a:mas):real;
var i:integer;
begin
result:=0;
for i:=0 to high(a) do//сложим все элементы
result:=result+a[i];
result:=result/(high(a)+1);//разделим на количество, оно на 1 больше чем старший индекс
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:mas;
begin
//вызовем 2 подпрограммы
Massiv(a,StringGrid1);
Label2.Caption:='Среднее арифметическое='+FloatToStrF(Sred(a),ffFixed,6,2);
end;

end.

Форма выглядит так для написанной программы, как указвно на рисунке.

Как будет выглядеть форма для данной задачи? Помогите пожалуйчта с решением))

Миниатюры

 

0