создание встроенных функций

[OLesechka300490]

помогите пожалуйста решить задачу
Определите функцию, подсчитывающую сумму N первых элементов целочисленного массива А. N и массив А передать в качестве параметров.
проблема в том что программа не передает созданной функции массив a и количество чисел n

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type mas=array of integer;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='';
memo1.clear;
end;

function sum(a:mas;n:integer):integer;
var s,i:integer;
begin
for i:=1 to n do s:=s+a[i];
form1.memo1.lines.add(inttostr(s));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a:array of integer;
n,m,i,d,s,j:integer;
c:extended;
begin
n:=strtoint(edit1.Text);
sum(n);
setlength(a,20);
i:=1;
randomize;
while i<>21 do begin
c:=random;
c:=c*100;
d:=round(c);
a[i]:=d;
stringgrid1.cells[0,i]:=inttostr(a[i]);
i:=i+1;
end;
sum(a);
end;
end.

Помним про тег <CODE>

[Greblin]

Ну естественно не вызывается - у тебя в функции описано 2 передаваемых параметра, а ты передаёшь по одному.
Ещё в Button1Click переменная a должна быть типа mas

[puporev]

1.

function sum(a:mas;n:integer):integer;
var s,i:integer;
begin
for i:=1 to n do s:=s+a[i];

Нужно

function sum(a:mas;n:integer):integer;
var s,i:integer;
begin
s:=0';
for i:=1 to n do 
s:=s+a[i];

2.

n:=strtoint(edit1.Text);
sum(n);
setlength(a,20);

Сначал sum была функция с двумя параметрами, а стала процедура с одним параметром.

[OLesechka300490]

да я уже изменила mas(a) на mas(a,n) и mas(n) убрала,но все равно выдает в строке mas(a,n) incompatible types. и тип переменной тоже в button изменила

[puporev]

Если Вы глобально объявили тип mas:array of integer, то в программе нельзя писать a:array of integer, это будут разные типы, нужно писать a:mas;

[OLesechka300490]

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

[Greblin]

Вот твой код. Тут надо учесть, что в динамическом массиве нумерация начинается с 0

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  mas = array of integer;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function sum(a: mas; n: integer):integer;
var s,i:integer;
begin
s := 0;
for i := 0 to n-1 do s:=s+a[i];
sum := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a: mas;
    n, i, d: integer;
    c: extended;
begin
n:=strtoint(edit1.Text);
setlength(a,n);
i:=0;
randomize;
while i<>n
  do begin
  c:=random;
  c:=c*100;
  d:=round(c);
  a[i]:=d;
  stringgrid1.cells[i,0]:=inttostr(a[i]);
  i:=i+1;
end;
form1.memo1.lines.add(inttostr(sum(a, n)));
end;

end.