[Black Raider]

5-я задача
Стринггрид на форме в него заполняется массив

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var a:array[1..5,1..8] of integer;
    b:array[1..5] of real;
i,j,sr:integer;
begin
//Заполняем массив из стринггрида
  for j:=1 to 5 do
    for i:=1 to 8 do
    begin
      a[j,i]:=strtoint(StringGrid1.Cells[i,j]);
    end;
  //Формируем массив B со среднем значением
  for j:=1 to 5 do
  begin
    sr:=0;
    for i:=1 to 8 do
      sr:=sr+a[j,i];
    b[j]:=sr/8;
  end;
  //Заменяем четные элементы на 0
  for i:=1 to 5 do
    if ((i mod 2)=0) then b[i]:=0;
end;