Плииз!!! помогите! Не могу понять почему не работает! (Паскаль)

[Викуська_]

Пожалуйста, пожалуйста! Очень срочненько!


надо вычислить сумму положительных элементов массива x(5) и сумму отрицательных элементов массива y(10)

Program name;
Uses Crt;
Var
x: array [1..5] of real;
y: array [1..10] of real;
s1,s2:real;
i: integer;




Function Summ(M: array of real):real;
var
i: integer;
s: real;
begin

s:=0

if high(M)=5 then
begin
for i:=1 to high(M) do if M[i]>0 then s:=s+M[i];

end;

if high(M)=10 then
begin
for i:=1 to high(M) do if M[i]<0 then s:=s+M[i];

end;

Summ:=s;

end;

begin
s1:=0;
s2:=0;
ClrScr;

Randomize;

for i:=1 to High(x) do begin
x[i]:=Random*100-50;
Writeln('x[',i,']=',x[i]:5:2);

end;

for i:=1 to High(y) do begin
y[i]:=Random*100-50;
Writeln('y[',i,']=',y[i]:5:2);

end;

s1:=Summ(x);
s2:=Summ(y);

Writeln('Summa s1=',s1:5:2,'Summa s2=',s2:5:2);
readkey
end.

[Викуська_]

Сумма у меня почему то всегда равна нулю((

[DM_bite]

program Xd;
const n=5;
      m=10;
var x:array [1..n] of real;
    y: array [1..m] of real;
    sum,sum1: real
    i,j: integer;
    begin
    sum:= 0; sum1:= 0;
    for i:= 1 to n do
     begin
     if x[i]>0 then inc(Sum, x[i]);
     end;
     for j:= 0 to m do
      begin
      if y[j]<0 then inc(Sum1, y[j]);
      end;
      WriteLn('summa= ',sum);
      WriteLn('summa1= ',sum1);
      ReadLn;
      end.

Осталось его заполнить.

Сумма у меня почему то всегда равна нулю((

Та правильно, и будет нулем. Потому что условие не выполняется. High возвращает максимальное значение типа.

[Викуська_]

Просто надо Составить программу, использующую подпрограмму-функцию ...

[DM_bite]

Просто надо Составить программу, использующую подпрограмму-функцию ...

А вот тут по-подробнее...

[Викуська_]

Ну вот что бы эта вещь была:

Function Summ(M: array of real):real;
var
i: integer;
s: real;
begin

s:=0

if high(M)=5 then
begin
for i:=1 to high(M) do if M[i]>0 then s:=s+M[i];

end;

if high(M)=10 then
begin
for i:=1 to high(M) do if M[i]<0 then s:=s+M[i];

end;

Summ:=s;

end;