Вычислить суммы и количества элементов ,находящихся в интервале от a до b для матриц А и В (Pascal ABC.NET)

[марфаз]

вот текст программы : вычислить суммы и количества элементов ,находящихся в интервале от a до b для матриц А и В .A[N,M] И B[K,L] .

Код Pascal

Program b7;
type vector=array[1..10,1..10] of real;
var A:vector;
    B:vector;
x,p,z: integer;
q,o,w:real;
n,m,k,l:integer;
Procedure Mas (C: vector;e,f:integer; r,d: real; var S:real;var h:integer);
var 
i,j: integer; 
begin
for i:=1to e do
for j:=1to f do
if(C[i,j]>r) and (C[i,j]<d) then 
begin S:=S+C[i,j]; h:= h+1;write('Введите a[',i,j,']'); 
end;
end;
begin
writeln('введите интервал o,q');
readln(o,q);
for p:= 1 to n do begin 
for x:= 1 to m do
read (A[p,x]);
writeln;
end;
 
Mas (A,n,m,o,q,w,z);
writeln('S=',w,'h=',z);
for p:=1 to k do begin 
for x:= 1 to l do
read ( B [p,x]);
writeln;
end;
Mas (B,n,m,o,q,w,z);
writeln ('S=',w, 'h=',z);
end.

ребят помогите пожалуйста ! проверьте программу! почему сумма и количество всегда ноль и как сделать чтобы каждый элемент матрицы вводился с клавиатуры к примеру a[11] a[12] ...и так далее .

[Kemperh4]

Можно полное описание задачи?
Не вижу чтобы n,m присваивалось значение, по умолчанию там мусор из памяти...

 for p:= 1 to n do begin 
 for x:= 1 to m do

Тоже самое для k,l...

 for p:=1 to k do begin 
 for x:= 1 to l do

[Serge_Bliznykov]

Сообщение от Kemperh4

Не вижу чтобы n,m присваивалось значение, по умолчанию там мусор из памяти...

в точку! Вы не видите, а автор темы об этом даже и не догадывается!

в процедуре Mas отсутствует иницилизация переменных. Которая там должна быть обязательно!!!
ну и write там явно лишний!

Procedure Mas (C: vector; e,f : integer; r,d: real; var S:real;var h:integer);
var 
  i,j: integer; 
begin
  S := 0.0;
  h := 0;
  for i:=1 to e do
      for j:=1 to f do
        if (C[i,j]>r) and (C[i,j]<d) then 
          begin 
             S:=S+C[i,j]; 
             h:= h+1;
          end;
end;

[марфаз]

и что нужно поменять что бы работало

[Serge_Bliznykov]

Сообщение от марфаз

и что нужно поменять что бы работало

1) нужно организовать корректное заполнение переменных n m
и переменных k l, кстати, тоже!!
например, так:

...
begin
  repeat
    writeln('введите размеры массива A: n m :');
    Readln(n,m);
  until (n>=1) and (n<=10) and (m>=1) and (m<=10);

  repeat
    writeln('введите размеры массива B:  k l :');
    Readln(k,l);
  until (k>=1) and (k<=10) and (l>=1) and (l<=10);

  writeln('введите интервал o,q');
  readln(o,q);
...

2) нужно заменить код procedure Mas на корректный. (можно попытаться взять тот код, что я предложил выше)

запустить. Проверить (возможны ещё ошибки, ведь я вашу программу не запускал, поэтому не поручусь, что там нет ещё "бажков").
В случае обнаружения некорректной работы, отладить (найти и исправить баги).

профит.