Параметр выхода из функции "Summa"

@Павел12 · Регистрация: 27.11.2013

Author24 — интернет-сервис помощи студентам

Pascal

uses op, obr;
var a:Mas;
    i,n,m:Byte;
begin
write('Êîëè÷åñòâî ýëåìåíòîâ ìàññèâà n=');
readln(n);
zap (n,a);
write('Ñóììà=',Summa(n,a));
end.
Модуль 
unit op;
interface
type Mas=array[1..100] of integer;
var a:Mas;
   implementation
end.
Модуль 
unit obr;
interface
uses op;
implementation
procedure zap (n:Byte;var a:Mas);
var i: integer ;
begin
for i:=1 to n do
  begin
    a[i]:=100-Random(200)+1;
    write(a[i],' ');
  end;
 end;
function Summa(k:byte;x:Mas):integer;
var i: integer ;
begin
if x[k]<0  then Summa:=x[k]+Summa(k-1,x);
end;
end.

@tegauss · 03.06.2014, 19:48

Павел12, Вам нужна просто сумма всех элементов? Или сумма только отрицательных, например?

@Puporev · 03.06.2014, 19:51

Pascal

function Summa(k:byte;x:Mas):integer;
begin
if k=0 then Summa:=0 else Summa:=x[k]+Summa(k-1,x)
end;

@tegauss 30 / 24 / 27 Регистрация: 06.05.2014 Сообщений: 161
	03.06.2014, 19:48	2
	Павел12, Вам нужна просто сумма всех элементов? Или сумма только отрицательных, например? 0

	03.06.2014, 19:51