Есть задача для решения которой нужно сделать программу на pascal. Помогите, пожалуйста, решить:
Дано квадратную матрицу порядка n с целыми элементами.
Найти наибольшее из значений элементов столбца, сумма модулей элементов которого является наименьшей.
Если таких столбцов существует несколько, то взять первый из них.
Полная версия: Задача по квадратной матрице
Помочь могу: задавайте вопросы.
Готового кода не ждите - обучать вас "с нуля" без Вашего желания никто не будет.
Готового кода не ждите - обучать вас "с нуля" без Вашего желания никто не будет.
Удалось найти решение:
Код
var a:array[1..50,1..50] of integer;
i,j,min,jmin,sum,n,max:integer;
begin
writeln('vvedite n');
readln(n);
writeln('vvedite el-ty massiva');
for i:=1 to n do
for j:=1 to n do begin write('a[',i,',',j,'] = ');readln(a[i,j]);end;
writeln('massiv');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
min:=0;
for i:=1 to n do min:=min+abs(a[i,1]);
jmin:=1;
for j:=2 to n do
begin
sum:=0;
for i:=1 to n do sum:=sum+abs(a[i,j]);
if sum<min then begin min:=sum;jmin:=j;end;
end;
writeln('min = ',min,' v stolbze ',jmin);
max:=a[1,jmin];
for i:=2 to n do if a[i,jmin]>max then max:=a[i,jmin];
writeln('max = ',max);
readln;
end.
i,j,min,jmin,sum,n,max:integer;
begin
writeln('vvedite n');
readln(n);
writeln('vvedite el-ty massiva');
for i:=1 to n do
for j:=1 to n do begin write('a[',i,',',j,'] = ');readln(a[i,j]);end;
writeln('massiv');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
min:=0;
for i:=1 to n do min:=min+abs(a[i,1]);
jmin:=1;
for j:=2 to n do
begin
sum:=0;
for i:=1 to n do sum:=sum+abs(a[i,j]);
if sum<min then begin min:=sum;jmin:=j;end;
end;
writeln('min = ',min,' v stolbze ',jmin);
max:=a[1,jmin];
for i:=2 to n do if a[i,jmin]>max then max:=a[i,jmin];
writeln('max = ',max);
readln;
end.
Апал тут вижу самый умный (полистал форум), автор красавчик, сам написал, сам ответил 
Автору респект, если он сам решил... есть подозрение, что кто-то ему помог со стороны...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.