Проверьте программу. Паскаль

[Руслан56]

Одномерный массив А длиной N<=40 заполнить случайными числами из диапазона [–25..10]. Составить программу определения суммы элементов массива значения, которых лежат в диапазоне [y1..y2].

Написал такую программу. Но вот с определением суммы выходит ерунда. Можете помочь с написанием суммы.

program pro1;
const
n=40;
var
   a:array[1..40] of integer;
   i, y1, y2, s:integer;
procedure sluchay(var x: array[1..40] of integer; i:integer);
begin
Randomize;
          For i:=1 to N do
                        begin
                        A[i]:=Random(36)-25;
                         Writeln(A[i]:4);
                         end;
end;

procedure sum( var s:integer);
begin
   for i:=1  to n do
   begin
   if(a[i]>=y1) and (a[i]<=y2)
   then
   s:=s+a[i];
	 writeln('Сумма  элементов=  ', s);
 end;
	end;
	begin
sluchay(a, i);
 writeln('Введите y1');
 read(y1);
 write('Введите y2');
 read(y2);
sum(s);

	end.

[Stilet]

Согласен. Есть недочеты.

procedure sum;
var s:integer;
begin
 s:=0;
   for i:=1  to n do   
    if(a[i]>=y1) and (a[i]<=y2)   then   s:=s+a[i];
   writeln('Сумма  элементов=  ', s);
End;

[ZX Spectrum-128]

В процедуре sluchai на вход подаете массив х, а работаете все равно с глобальным массивом а.
Попробуйте отрассировать программу.

[Unique_Maks]

кажись вот так

const
  n = 40;
var
  a: array[1..n] of integer;
  y1, y2:integer;

procedure sluchay;
var
  i: Integer;
begin
  Randomize;
  For i:=1 to n do
  begin
    A[i] := Random(36)-25;
    Write(A[i]:4);
  end;
  Writeln;
end;

function sum: Integer;
var
  i, s: Integer;
begin
  s := 0;
  for i := y1 to y2 do
    s := s + a[i];
  sum := s;
end;

begin
  sluchay;
  writeln('Введите y1');
  read(y1);
  writeln('Введите y2');
  read(y2);
  write(sum);
end.

[Руслан56]

Процедуры/функции должны быть с параметрами

[Unique_Maks]

Зачем?

const
  n = 40;
var
  a: array[1..n] of integer;
  s, i, y1, y2:integer;

begin
  Randomize;
  For i:=1 to n do
  begin
    A[i] := Random(36)-25;
    Write(A[i]:4);
  end;
  Writeln;
  writeln('Введите y1');
  readln(y1);
  writeln('Введите y2');
  readln(y2);
  s := 0;
  for i := y1 to y2 do
    s := s + a[i];
  write(s);
  Readln
end.

[Руслан56]

Требуют, обязательно должно быть(

[Serge_Bliznykov]

Рискну предложить свой вариант решения:

const
  n = 40;
type
 TMyArray = array[1..n] of integer;

procedure sluchay(var Mas : TMyArray; MinValue, MaxValue : integer);
var
  i: Integer;
begin
  Randomize;
  For i := 1 to n do
  begin
    Mas[i] := Random(MaxValue+1-MinValue)+MinValue;
    Write(Mas[i]:4);
  end;
  Writeln;
end;

function sum(const Mas: TMyArray; const y1, y2: integer): integer;
var
  i, s: Integer;
begin
  s := 0;
  for i := 1 to n do
    if (Mas[i]>=y1) and (Mas[i]<=y2) then
      s := s + Mas[i];
  sum := s;
end;

var
  a :  TMyArray;
  y1, y2: integer;

begin
  sluchay(a, -25, 10);
  writeln('Введите y1');
  readln(y1);
  writeln('Введите y2');
  readln(y2);
  writeLn('Summa =',sum(a, y1, y2));
  Readln;
end.