Помогите!!!

[Fanis]

Работа с массивами. Задать одинаковые длины двух массивов целых чисел. Заполнить массивы. Написать функцию, возвращающую массив, которая выполняет попарно произведение элементов двух массивов

[Chudo4258]

Написать функцию, возвращающую массив

Как-то я себе это не представляю... Может всетаки процедуру?

[Пепел Феникса]

какой язык для начала?

Chudo4258, функа может возвращать массив
просто нужно выделить ему свой тип

[Fanis]

Delphi спомощью процедуры я тож написал, теперь надо спомощью функции..

[Fanis]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Button2: TButton;
Memo3: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

type
Massiv=array of integer;


function ProizvedMass(m,n:array of integer):Massiv;
var
i:integer;
begin
SetLength(Result,Length(n));
for i:=Low(Result) to High(Result) do
begin
Result[i]:=m[i]*n[i];
end;
end;
вот всё что есть... осталось написать строчки 2.. чёт никак не получается..

[Пепел Феникса]

Опередили вы меня, сейчас

[Пепел Феникса]

function ProizvedMass(m,n:array of integer):Massiv;
var i:integer;
begin
 SetLength(Result,Length(n));
 for i:=Low(Result) to High(Result) do Result[i]:=m[i]*n[i];
end;

вполне работает(только что проверил)

[Fanis]

знаю, что функция вполне работает, прост при её вызове не выводит решение... посмотрите, пж, процедуру теперь..

[Пепел Феникса]

а по вашему коду она вообще чтото куда то выводит?
посмотрите отладчиком накрайняк

[Fanis]

вызываю функцию в процедуре, пытаюсь вывести в Memo.. но.. не выводит..