паскаль, ошибка

[wrmarw]

нашлась кое-какая программа, в которой конечно же какая-то ошибка! помогите, пожалуйста, её исправить.

Найти произведение ненулевых элементов матрицы

Program proizvedenie;
Type
Matrix=array [1..10, 1..10] of integer;
Var
A: matrix;
N, m, i, j: byte;
P: integer;
Procedure vvod (var m: matrix);
Var k , h : byte ;
Begin
For i :=1 to n do
For j :=1 to m do
M[i,j]:= random(10);
End;
Procedure print (m: matrix);
Var k, h: byte;
Begin
For i:=1 to n do
begin
For j:=1 to m do
Write (M[i, j]: 4);
Writeln;
end ;
End ;
Begin
Writeln (‘Введите размерность матрицы:’);
Readln(N, M);
Vvod(a);
Print(a);
P:=1;
For i:=1 to N do
For j:=1 to M do
If a[i, j]<>0 then p:=p*a[i, j];
Writeln ( p );
End.

[fikret123]

скорее всего результат не помещается в integer

[F1nZeR]

Попробуйте P:longint;

[ROMA2PVT]

Попробуйте P:longint;

Это здесь вообще не причём:

Program proizvedenie;
Type
Matrix=array [1..10, 1..10] of integer;
Var
A: matrix;
N,m,i,j:integer;
P: integer;
Procedure vvod (Var l:matrix);
Var k ,h:byte ;
Begin
For i :=1 to n do
For j :=1 to m do
l[i,j]:= random(10);
End;
Procedure print (l:matrix);
Begin
For i:=1 to n do
begin
For j:=1 to m do
Write (L[i, j]: 4);
Writeln;
end ;
End ;
Begin
Writeln ('Введите размерность матрицы:');
Readln(N, M);
Vvod(a);
Print(a);
P:=1;
For i:=1 to N do
For j:=1 to M do
If a[i, j]<>0 then
begin
p:=p*a[i, j];
end;
Writeln ('Произведение элементов: ', p );
End.

[fikret123]

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

Это здесь вообще не причём:

Причем, если ввести максимальные m=n=10, будет 100 элементов и если не будет нулей, в худшем случае произведение будет равно 9^100 степени.
А так ошибка в совпадении имен глобальной переменной и формального параметра в процедурах.

[ROMA2PVT]

Причем, если ввести максимальные m=n=10, будет 100 элементов и если не будет нулей, в худшем случае произведение будет равно 9^100 степени.
А так ошибка в совпадении имен глобальной переменной и формального параметра в процедурах.

Ну так и надо было сказать человеку про ошибку в переменных.Он чё будет матрицу 10х10 чтоли вбивать.