[AlexSku]

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

У меня есть константа двумерный массив:

Код:

const
  m: array [0..1,0..1] of integer = ((0,1),(2,3));

Мне нужно его обработать в процедуре/функции, причем результатом должен быть одномерный массив (просуммировать строки, результатом будет массив (2,4)).
Подскажите как сделать? Как правильно объявить процедуру?

А надо не сразу объявлять переменные, а сначала описать типы, тогда эти типы можно будет использовать и в параметрах, и в результате функции:

Код:

type
 Ta2 = array[0..1] of Integer;
 Ta2x2 = array[0..1,0..1] of Integer;

function fun2(const AIn: Ta2x2): Ta2;
begin
  {сложение -> Result}
end;

var
  x: Ta2x2 = ((0,1),(2,3));
  y: Ta2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  y:= fun2(x);
end;