вычислить z=p-q

[CheerGirl]

на паскале
Вычислить z=p-q, где p и q - произведение элементов, расположенных ниже главной диагонали для квадратных матриц A(3,3) и B(4,4). Матрицы вводятся.

очень буду благодарна если будут комментарии!
Пожалуйста помогите(

[Son Of Pain]

А что конкретно не получается?

[CheerGirl]

program rgr3;
uses crt;
Const n=3;m=4;
Var A:array[1..n,1..n] of integer;
    B:array[1..m,1..m] of integer;
    i,j,p,q:integer;
Begin
    Randomize;
    p:=1;q:=1;
    writeln('Matrix A');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4); 
        if i>j then p:=p*A[i,j];
      End;
     writeln;
    End;
    writeln('Matrix B');
    For i:=1 to m do
    Begin
      For j:=1 to m do
      Begin
        B[i,j]:=random(31)-15;
        write(B[i,j]:4);
        if i>j then q:=q*B[i,j]; 
      End;
     writeln;
    End;
    writeln('p = ',p);
    writeln('q = ',q); 
    writeln('z = ',p-q); 
    readln;
End.

вот программа. по заданию сказано что матрицы вводятся. а тут получается, что матрица сама произвольная берётся. и я не понимаю как должно быть на самом деле




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Базиля]

Читаем
Что не понятно, задаем вопросы.

[CheerGirl]

как исправить программу чтобы матрица задавалась с клавиатуры, а не автоматически произвольными числами

[Базиля]

Я привел ссылку, там ответ на вопрос.
Читаем внимательно мой предыдущий пост.

[lenwe]

Если мне не изменяет память то так:

program rgr3;
uses crt;
Const n=3;m=4;
Var A:array[1..n,1..n] of integer;
    B:array[1..m,1..m] of integer;
    i,j,p,q:integer;
Begin
    p:=1;q:=1;
    writeln('Matrix A');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        writeln('srtoka ',i,' stolbec ',j,' = ');
        read(A[i,j]);
        if i>j then p:=p*A[i,j];
      End;
     writeln;
    End;
    writeln('Matrix B');
    For i:=1 to m do
    Begin
      For j:=1 to m do
      Begin
        writeln('srtoka ',i,' stolbec ',j,' = ');
        read(B[i,j]);
        if i>j then q:=q*B[i,j]; 
      End;
     writeln;
    End;
    writeln('p = ',p);
    writeln('q = ',q); 
    writeln('z = ',p-q); 
    readln;
End.