Оптимизация программы

[GoldSieg]

Здравствуйте
мне нужно оптимизировать программу.

uses
  crt;

type
  Mas = array[1..100] of integer;

function Sum(k: byte; x: Mas): integer;
begin
  if k = 0 then Sum := 0 else Sum := x[k] + Sum(k - 1, x)
  
end;
var
  a: Mas;
  i, n, m: Byte;

begin
  clrscr;
  randomize;
  write('Количество элементов массива n=');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := Random(20);
    write(a[i], ' ');
  end;
  writeln;
  write('Сумма=', Sum(n, a));
  readln
end.

интересны ваши предложения.

[Leshii]

Поведайте ещё суть программы, и тогда наверное можна подумать

[s-andriano]

Вычислять сумму без рекурсии простым циклом.

[Arigato]

Мой вариант оптимизации:

var
  a, Sum: Integer;
  i, n: Byte;

begin
  randomize;
  write('Количество элементов массива n=');
  readln(n);
  Sum := 0;
  for i := 1 to n do
  begin
    a := Random(20);
    write(a, ' ');
    Inc (Sum, a);
  end;
  writeln;
  write('Сумма=', Sum);
  readln
end.

[GoldSieg]

нужно написать программу которая будет выводить сумму числового ряда. функция должна быть рекурсивной.

[GoldSieg]

Че больше предложений нет?

[Arigato]

Ну а чем вас ваше решение не устраивает?

[s-andriano]

опять же, каков критерий оптимизации?

[GoldSieg]

Ну а чем вас ваше решение не устраивает?

Понимаете. меня оно устраивает. оно не устраивает моего преподавателя...
на счет критерия.. а как можно сделать так чтоб функция не держала в памяти весь массив.?

[BDA]

uses
  crt;

function Sum(k: integer): longint;
var
  a: integer;
begin
  if k = 0 then
  begin
    sum := 0;
    exit;
  end;
  a := Random(20);
  write(a, ' ');
  Sum := a + Sum(k - 1);  
end;

var
  n: integer;

begin
  clrscr;
  randomize;
  write('Количество элементов массива n=');
  readln(n);
  write('Сумма=', Sum(n));
  readln
end.

Но нужно учитывать, что на стеке вызовов все равно будут храниться временные переменные.