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

[Викуська_]

надо вычислить сумму положительных элементов массива 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.

[Викуська_]

Если High возвращает максимальное значение типа. как тогда мне написать?^__^
важна подпрограмма фунция!

[Викуська_]

Ммм((Мне так нужна ваша помощь...

[DM_bite]

Я так и не понял, чего вы хотели.Мне кажется, что сейчас и эта тема будет закрыта, так что поторопитесь. И еще, объясните мне эту строчку:

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

Если High возвращает максимальное значение типа. как тогда мне написать?^__^
важна подпрограмма фунция!

Понятия не имею...

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

Если эта вся задача, то к чему было флудить и писать этот бессмысленный код?

[Викуська_]

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

это программа заполняет массив x произвольно.

нет это не вся задача( просто проблема в этой части...

[Викуська_]

и high кажется возвращает не максимальное значение...., а размер массива
Вот
if high(M)=5 then //мы указали размер
for i:=1 to high(M) do if M[i]>0 then s:=s+M[i];// И вот тут работа с массивом размером 5

[Викуська_]

^^ Спасибо за помощь!
Нашла ошибку^^