Serjant0007

Дана матрица PS(3*5), содержащая положительные, отрицательные числа и нули. Вычислить сумму модулей отрицательных чисел и произведение положительных элементов матрицы, а также количество нулей.
Program zadacha;
Uses crt;
const
n = 3;
m = 5;
var
Matr: Array[1..n, 1..m] of Integer;
i, j,pro,sum,k: Byte;
begin
pro:=1;
Randomize;
writeln('Матрица: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
Matr[i, j]:=Random(20);
write(Matr[i, j]:4);
begin if Matr[i,j]>0 then pro:=pro*Matr[i,j]
else if Matr[i,j]<0 then sum:=sum+abs(Matr[i,j])
else k:=k+1;
end;
writeln;
end;
writeln('proizv: ', pro);
writeln('summa: ', sum);
writeln('kol-vo: ', k); end;
Readkey;
end.

Ошибка проверки диапазона 201 на 19 строке вроде
Тоже компилятор глюченый???

Vladimir_S

Ну, во всяком случае, на сей раз - не только. Есть ошибки.
Самая главная: произведение положительных элементов - это очень большое число, для которого может не хватить даже формата LongInt, а у Вас поставлен и вовсе Byte, т.е. число в диапазоне 0..255. Никуда не годится. Здесь лучше на всякий случай взять формат Real.
Есть несколько не то, чтобы ошибок, а, скорее, неряшливостей:
1. Раз уж требуется работать со всеми тремя видами чисел, включая отрицательные, так нужно, чтобы они тоже генерились.
2. В этом фрагменте
begin if Matr[i,j]>0 then pro:=pro*Matr[i,j]
else if Matr[i,j]<0 then sum:=sum+abs(Matr[i,j])
else k:=k+1;
end;
операторные скобки begin-end ни к селу, ни к городу, т.е. они просто абсолютно лишние.
Ну вроде так всё. Исправленный вариант: