Автор: diem 21.10.2013 20:08
Задание:
Дано квадратную матрицу порядка n с целыми элементами.
Найти наибольшее из значений элементов столбца, сумма модулей элементов которого является наименьшей.
Если таких столбцов существует несколько, то взять первый из них.
Нужна готовая, работающая программа.
Автор: APAL 22.10.2013 20:46
Это раздел "задачи на заказ".
Какую оплату предлагаете за решение?
Автор: diem 23.10.2013 21:28
Решение:
Код
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.
Автор: APAL 24.10.2013 19:36
Ну раз решение уже есть, то тема больше не нужна.
Тему закрываю.