Напишите функции для вычисления суммы отрицательных элементов двух одномерных массивов произвольной длины (массива из вещественных и массива целочисленных элементов).
Автор: -Виталий- 2.06.2008 15:06
Почему выдаёт ошибку 202: Stack overflow error. ????:
Код
uses crt; const m=10; n=10; var a:array [1..m] of real; b:array [1..n] of integer; i:integer;
function sumv:real; begin for i:=1 to m do if a[i]<0 then sumv:=sumv+a[i]; end; function sumc:integer; begin for i:=1 to n do if b[i]<0 then sumc:=sumc+b[i]; end;
begin clrscr; for i:=1 to m do begin a[i]:=random-0.25; write(a[i]:0:3,' '); end; writeln; for i:=1 to n do begin b[i]:=random(12)-5; write(b[i],' '); end;