Помощь - Поиск - Пользователи - Календарь
Полная версия: Программа на pascal (оплата - ЯД или Webmoney)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
diem
Задание:

Дано квадратную матрицу порядка n с целыми элементами.
Найти наибольшее из значений элементов столбца, сумма модулей элементов которого является наименьшей.
Если таких столбцов существует несколько, то взять первый из них.

Нужна готовая, работающая программа.
APAL
Это раздел "задачи на заказ".
Какую оплату предлагаете за решение?
diem
Решение:

Код
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
Ну раз решение уже есть, то тема больше не нужна.
Тему закрываю.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.