Посмотрите пож., почему неправильно находится количество положительных элементов в столбцах матрицы и минимальный элемент (из отрицательных всегда выбирает больший, а нужно меньший).
case schet of
1: begin
b[j]:=0;
for j:=1 to m do
begin
for j:=1 to m do
for i:=1 to n do
if Matr1[i,j]>0 then
b[j]:=b[j]+1;
writeln('-------------------------');
writeln;
textcolor(white);
writeln(' обработка...');
writeln;
for j:=1 to m do
writeln('в солбце № ',j,' положительных элементов: ',b[j]:4);
writeln;
end;
end;
:
2: begin
max:=Matr1[1,1]; min:=Matr1[1,1];
for i:=1 to n do
for j:=1 to m do
if Matr1[i,j]>max then max:=Matr1[i,j];
if Matr1[i,j]<min then min:=Matr1[i,j];
pr:=max-min;
z:=pr;
writeln;
writeln ('Минимальный элемент:');
writeln (min:8:2,' ');
writeln;
writeln ('Масимальный элемент:');
writeln (max:8:2,' ');
writeln;
writeln ('Разница между маскимумом и минимумом:');
writeln (pr:8:2,' ');
end;