Serjant0007

Как исправить эту ошибку: арифметическое переполнение
program zadacha;
Uses crt;
const
n = 4;
var
Matr: Array[1..n, 1..n] of longint;
Count: Integer;
i, j: Byte;
begin
Randomize;
writeln('Матрица*: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
Matr[i, j]:=Random(20)-10;
write(Matr[i, j]:4);
if Matr[i, j] < 0 then
inc(Count);
end;
writeln;
end;
writeln('Замена отрицательных нулями: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
if Matr[i, j] < 0 then
Matr[i, j]:=0;
write(Matr[i, j]:4);
end;
writeln;
end;
writeln('Кол-во: ', Count);
end.

Vladimir_S

Попробуйте заменить строку
Matr[i, j]:=Random(20)-10;
строкой
Matr[i, j]:=10-Random(20);
Дело в том, что некоторые реализации Паскаля "понимают" эту строку так, что выполнение операции Random(20) "навязывает" всему выражению, стоящему справа, целый беззнаковый тип (Word, Byte) и, соответственно, получая при генерации числа, меньшего 10, отрицательное значение, выбрасывают сообщение об ошибке. Перестановка слагаемых позволяет избежать этого глюка.

Serjant0007

неа все тоже самое))) ну ладно фиг с ним главное что решено верно)))

Vladimir_S

Ну да, верно - это я подтверждаю: запускал на своем Free Pascal, всё работает, и никаких ошибок. Так что уж и не знаю.
А у Вас не АВС, часом? Если так, то формат матрицы нужно поменять с Longint на Integer.

Serjant0007

Scool Pak у меня

Vladimir_S

Это в смысле School Pack? Понятно. Продолжается, значит, изготовление всяких поделок полуграмотными умельцами. Естественно, "для нужд образования Российского". Мало нам пропихивания во все дырки глючного изделия N2 по имени АВС, так еще и это. Зла не хватает, честное слово. Не на Вас, естественно.