изменила я только то что можно сейчас самой выбирать интервал. так вот, когда выбираешь маленькие числа к примеру от -3 до 12 то все работает правильно, а когда большие от -11 до 26 ,например, то появляется минус в произведении положительных чисел. что я уже только не меняла не получается ничего. Помогите пожалуйста!
Program Primer;
uses crt;
const
n=5;
var
M: array[1..n,1..n]of integer;
i,j,p,r,k, a,c :integer;
b:boolean;
begin
clrscr;
randomize;
writeln('Исходная матрица:’);
writeln;
write('Введите интервал [a,c]:’);
readln(a,c);
writeln;
for i:=1 to N do
begin
b:=true;
p:=1;
for j:=1 to N do
begin
M[i,j]:=random(c-a+1)+a;
if M[i,j]<0 then b:=false;
if b then P:=P*m[i,j];
write(m[i,j]:4);
end;
if b then writeln(p:15) ;
writeln;
end;
readkey;
writeln; writeln('Преобразованная матрица’);
writeln;
for j:=1 to n do begin
for k:=1 to n-2 do begin
for i:=k+2 to n do
if k mod 2 <> 0 then
if sqr(m[k,j]) < sqr(m[i,j])
then begin
r:=m[k,j];
m[k,j]:=m[i,j];
m[i,j]:=r;end; end;
end;
for i:=1 to n do begin
for j:=1 to n do write (m[i,j]:4);
writeln;end;
readkey;
End.