[iluxa1810]

Задание,сделать процедуру,которая высчитывает Сумму всех элементов массива.
Я реализовал вот так:


Ну мне кажется можно как-то это сделать без присваивания локальному массиву глобального .
Если написать функцию такого вида (a,n:integer;Var summ) ,где а это массив,а n кол-во элементов массива и не добавлять локальный массив,то будет ругаться на строку summ:=summ+a[i];
Может массив можно как-то по особенному объявить в скобках обращения к процедуре?

[PhoeniX]

оригинальный подход к публикации листинга и созданию скриншотов

[iluxa1810]

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

[iluxa1810]

Подскажите кто-нибудь...

[pirsddd]

[Janom]

Код:

program Project2;
uses crt;
var b:array[1..15] of integer;
    i,n:integer;
    s:String;
procedure SUM;
var summ:integer;
begin
  summ:=0;
    For i:=1 to n do
      summ:=summ+b[i];
WriteLn('===================================');
WriteLn('Result=',summ);
ReadLn;
end;
begin
Randomize;
s:='';
WriteLn('Vvedite Razmer Massiva (ot 1 do 15)');
ReadLn(n);
  for i:=1 to n do
    begin
      b[i]:=Random(10);
      s:=s+':'+IntToStr(b[i]);
    end;
WriteLn('Elem. Mass.:',s);
SUM;//Вызов процедуры