Программа на pascal (оплата - ЯД или Webmoney), Нужно создать программу на pascal Опции

[diem]

Задание:

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

Нужна готовая, работающая программа.

[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.